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AFM  171-604,  Volume  II,  1  December  1976,  is  changed  as  follows 


Write-In  changes: 


Page 

Reference 

4-1 

Para  4 . 1 . 1 . If 

4-2 

Para  4 . 2 . 1 .  Id 

8-2 

Para  8.1.2.4a 

8-3 

Para  8.1.2.4b 

8-6 

Fig  8-01 

Action 

Change  "PCNSP89 lPll "  to 
"PCNSS891P11. " 

Change  " PCNSP 8 9 1 P21 "  to 
"PCNSS891P21. " 

Change  "PCNSP 89 1 A00 "  to 
"PCNSS891 A00 . " 

Change  "PCNSP 89 1 A01 "  to 
" PCNSS 89 1  AO  1 .  " 

Change  "SP891-A00"  to 
"SS891-A00 . " 

Change  " PCNSP 8 9 1 A00 "  to 
"PCNSS  89 l AGO . " 
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8-9 
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8-10 
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8-11 
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Para  14. 1. 2. la 
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Para  14.1.2.4 
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14-3  Para  14.2.2.1  Change  "PCNSP89 1D0 1 "  to 

"PCNSS891D01. " 

Para  14.2.2.4  Change  "PCNSP89 1D0 1 "  to 

PCNSS 89  1D0 1  .  " 

Para  20.1.2.4a,  Change  "| Input  SP891-BU1" 

Col  8  in  JCL  samples  to  "[Input 

SS891-BU1 .  " 

Para  20.1.2.4b,  Change  " | Input  SP891-BU1"  to 
Col  8  "[Input  SS891-BU1." 

Fig  20-01  Change  "SP891-BU1"  to 

"SS891-BU1 . " 

Change  "FCNSP891BU1"  to 
"PCNSS891BU1 . " 

22-1  Para  22.1.1  Change  " $  TAPE9  FA , XlD (Tape 

to  be  certified)"  to  "$  TAP E9 
FA, XlD, ,nnnnn (Enter  reel  nr  of 
tape  to  be  certified) . " 
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Chief  of  Staff 


VAN  L.  CRAWFORD,  JR.,  Colonel,  USAF 
Director  of  Administration 
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i'ART  ON i:  111  Nl.KAI.  IMI'ORMATiON 

SUCTION  1.  INTRODUCTION 

1.1  Purpose  of  Users  Manual.  The  objective  of  this  Users  Manual  for  116000  utility 
software  is  to  provide  the  users  with  the  information  necessary  to  effectively  use 
the  116000  programs  and  subroutines  provided. 

1.2  Project  References.  The  H6000  utility  software  consists  of  standard  Air  lorce 
programs  and  subroutines  which  support  H6000  users  Air  Force-wide.  Some  of  these 
programs  and  subroutines  were  previously  documented  by  the  Directorate  of  Systems 
Development,  AFDSDC,  Gunter  AFS,  Alabama  in  H6000  User  Advisories. 

1.3  Terms  and  Abbreviations : 

CCW  -  Compaction  Control  Word 
SSF  -  Standard  System  Format 
DCS  -  Data  Compaction  System 
CC  -  Card  Column(s) 

BCD  -  Binary  Coded  Decimal 

ISP  -  Indexed  Sequential  Processing 

I/O  -  Input/Output 

1.4  Security  and  Privacy.  The  security  and  privacy  classification  will  be  deter- 
mined  by  the  input  and  user. 
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PART  TWO  -  DATA  COMPACTION  SYSTEM  (DCS) 

SECTION  3.  SYSTEM  SUMMARY 

3.1  System  Application.  The  purpose  of  the  DCS  is  to  conserve  limited  data  stor¬ 
age  space.  Operational  improvements  provided  by  the  DCS  include  reduced  processoi 
time  and  reduced  data  storage  spice  resulting  in  an  overall  reduction  in  the  cost 
per  job  run.  The  storage  space  savings  can  be  valuable  when  disk  storage  is  in 
volved  and  can  enhance  disk  storage  as  a  viable  alternative  to  other  modes  of 
storage.  Since  I/O  time  is  less  on  a  compacted  file,  I/O  error  probability  is 
reduced.  The  functions  of  the  DCS  are  the  compaction  and  decompaction  of  SSF  files, 
and  the  reading  and  writing  of  compacted  files  by  user  COBOL  programs  or  programs 
that  use  the  File  and  Record  Control  (GFRC)  facility.  The  subroutines  allow  com¬ 
pacted  file  interface  with  negligible  modification  to  existing  programs. 

3.2  System  Operation.  N/A. 

3.3  System  Configuration.  The  DCS  was  written  for  use  on  the  U6000  computer 
system  with  tape  and  disk  I/O  devices. 

3.4  System  Organization.  The  DCS  consists  of  two  stand-alone  programs  (ZAP1F0 
and  ZAP2FO)  ana  four  subroutines  (ZAP3FO,  ZAP4F0,  ZAPSFO,  and  ZAP6F0)  . 

3.4.1  ZAP1F0  -  File  Compaction  Program.  ZAP1F0  uses  SSF  files  as  input  to 
produce  compacted  SSF  files. 

3.4.2  ZAP2F0  -  File  Decompaction  Program.  ZAP2F0  uses  DCS  compacted  SSF  files  as 
input  to  produce  decompacted  SSF  files. 

3.4.3  ZAP3F0  -  Write  Compacted  File  Subroutine.  User  programs  call  this  subroutine 
to  write  compacted  output  files. 

3.4.4  ZAP4F0  -  Read  Compacted  File  Subroutine.  User  programs  call  this  subrou- 
tine  to  read  a  compacted  file. 

3.4.5  ZAP5FO  -  COBOL  Program  Write  Compacted  File  Subroutine.  User  COBOL  programs 
call  this  subroutine  to  write  compacted  output  files. 

3.4.6  ZAP6FO  -  COBOL  Program  Read  Compacted  File  Subroutine.  User  COBOL  programs 
call  this  subroutine  to  read  a  compacted  file. 

3.5  Performance.  Several  files  and  associated  programs  were  tested  and  evaluated 
using  the  DCS.  The  following  information  describes  the  system  performance  capa¬ 
bilities  . 

3.5.1  Test  Analysis.  The  results  of  the  evaluation  were  variable.  In  many  cases, 
the  savings  realized  by  the  use  of  the  DCS  were  substantial.  In  other  cases,  the 
dollar  savings  were  too  small  to  be  of  value,  but  in  all  cases  space  was  saved. 

The  savings  possible  are  dependent  on  the  sequence  of  the  file.  For  example,  the 
greatest  optimization  resulted  with  system  A  as  shown  in  para  3.5.2,  an  Air  Force 
personnel  file.  The  original  5-reel  file  was  compacted  and  tested  with  an  associ¬ 
ated  inquiry  program,  with  savings  amounting  to  over  501  of  the  original  dollar 
cost. 
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7.5  Performance  Data.  Processor  times  shown  below  include  normal  processing  by 

tTi  pro  gum,  which  ITT  most  cases  is  the  largest  portion  of  the  time  shown. 


Size  In 

Sav ings 

Proc 

Lapse 

1  locks 

In  Space 

Time 

Time 

Cost 

SYSTEM  A 

Original 

40372 

.3906 

1.250 

54.78 

Compacted 

7864 

811 

.  3434 

.250 

25.00 

SYSTEM  B 

Orig i nal 

14186 

.0465 

.251 

6.94 

l ompac  ted 

6480 

54  $ 

.0463 

.091 

4.38 

SYSTEM  C 

Original 

2737 

.  1048 

.  322 

7.97 

Compacted 

797 

74% 

.1046 

.  295 

7.89 

SYSTEM _D 

Original 

3869 

.1391 

.210 

7.01 

Compacted 

2267 

42$ 

.1485 

.180 

6.61 

SYSTEM  E 

Original 

239 

.006/ 

.026 

N/A 

Compacted 

65 

63$ 

.0034 

.021 

N/A 

SYSTEM  F 

Or igina  l 

557 

.0325 

.104 

N/A 

Compacted 

265 

52$ 

.0265 

.049 

N/A 

\r Test  Conclusions.  In  most  cases,  significant  cost  savings  should  be  realized. 
•  n  r.lT  ^ases,’  space  should  be  saved. 

7.6  Data  base.  The  DCS  supports  all  forms  of  data  and  data  files  that  are  in  SSF, 
Ti.cluding  all  files  previously  compacted  by  the  DCS. 

7.7  (Jeneial  Descriptions  of  Inputs,  Processing,  Outputs: 


1  I nputs .  Any  file  in  SSF  which  the  user  desires  to  have  compacted  for  the 
use  of  con 


purpose  of  conserving  storage  space  and/or  reducing  the  dollar  cost  ol  processing, 
'nputs  may  also  be  compacted  files  which  were  created  by  this  system. 

.7.1  _ Proces  s ing .  The  DCS  programs  and  subroutines  provide  the  capability  to 

build  compacted  tiles  by  the  elimination  of  redundant  words  of  data  between 
iccessive  records  of  a  file  (ZAP1F0),  to  decompact  a  compacted  file  (ZAP2F0),  and 
to  perform  compacted  file  read/write  operations  (ZAP3FO,  ZAP4FO,  ZAPFFO,  and 
7APbr01  Decompacted  SSF  files  are  output  from  ZAP2F0,  ZAP4FO,  and  ZAP6FO.  No 
itiiPi-  data  manipulation  is  performed. 

Ou  tputs .  Compaction  records  are  written  us  output  by  7AP1FO,  ZAP3F0,  and 
ZAPS! 0,  Tn  system  standard  format  as  318  word  records  (except  the  last  record  which 
:\i/  shorter).  Fach  compaction  record  contains  multiple  logical  records.  The 
fist  word  of  each  input  recoid  is  a  compaction  control  word  (CCW)  followed  by  zero 
to  j  wolds  of  new  data  (words  which  differ  fTom  those  in  the  previous  record). 

The  bits  of  the  CCW  which  are  sot  to  one  correspond  to  those  word  locations  which 
ire  contain  the  now  words  w’-  the  record  is  expanJed.  The  last  bit  is  used  to 
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indicate  continuation  when  the  original  records  are  longer  than  35  words.  In  this 
case,  additional  CCWs  are  used  as  required  to  compact  the  entire  record.  For 
example : 


RECORD  1  -  AABBCCDDEEFF 
RECORD  2  -  AAABBBDDEEFG 
Compacted  REClTRir~2  -  CCABBC 

a.  After  compaction,  record  2  may  be  read  as  a  five-word  record  where  cc  is 
a  36-bit  CCW  with  bits  set  on  corresponding  to  the  word  position  of  the  four 
different  words  in  the  record. 

b.  In  the  example  above,  the  compaction  code  has  the  3rd,  5th,  6th,  and  12th 
bits  on  (cc  =  001011000001). 

c .  In  the  example,  a  10-word  record  is  compacted  to  five  words. 

d.  The  record  control  word  of  the  original  system  standard  format  record  is 
considered  as  part  of  the  data  that  is  compacted.  This  permits  processing  of 
variable  length  SSF  records. 
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4.1  I API  10  -  File  Compaction  Program.  The  function  of  this  program  is  to  convert 
SSF  Tiles" to  compacted  SSF  files. 


4.1.1  Initiation 

Proccduics.  To 

Compact  S M‘  files,  the  user  may  execute 

Follow  mg  .TCI: 

Col  1 

Col  8 

Co  1  1  f> 

$ 

I  DENT 

(USER  SPECIFIED) 

$ 

USERID 

(USER  SPECIFIED) 

$ 

LIBRARY 

I.A 

$ 

USE 

ZAP1FO.ZAP3FO 

S 

ENTRY 

Z API FO 

S 

EXECUTE 

$ 

LIMITS 

,  SK 

$ 

TAPE9 

I.A.XfID,  ,nnnnn,  .User  Library 

$ 

TAPE9 

FA  ,X1D, ,nnnnn, .FZAP1F0AU 

$ 

TAPE9 

FI  , X 2D , ,99999, .FZAP1F01U 

(OPTIONAL  PARAMETER  CARD) 
i  ENDJOB 


4.1.1 .  1  Program  Notes : 

a.  Since  the  compacted  file  is  in  SSF,  it  may  be  processed  via  standard 
utilities  for  copying  or  dumping.  However,  its  sequence  must  not  be  disturbed,  or 
else  recovery  of  the  original  is  impossible. 

b.  Input  is  on  file  FA;  output  is  on  file  FI. 

c.  After  compaction,  the  program  will  display  on  SYSOUT  a  count  of  input  and 
output  blocks.  This  can  be  used  as  an  indication  of  how  much  compaction  Is  real¬ 
ised. 

d.  Subroutine  ZAP3F0  is  required  by  7AP1FO. 

e.  library  tape  I.A  is  in  sequential  R*  format. 

f.  The  user  may  set  the  file-il)  desired  on  an  output  tape  by  using  the  fol¬ 
lowing  parameter  card.  Enter  the  PCN  in  if  1-11  and  the  desired  file-ID  in  cc 
l‘'-30.  If  the  parameter  card  is  not  included,  the  file-ID  will  he  *CONDOUT. 


Col  1  Col  8  Col  1<>  Col  19 

$  DATA  CA 

PCNSP8!)  I  PI  1  FZAP1FOAU0O 

4 . 1 . 1 . 3  References  .  116000  Control  Card  Manual  »BS19. 

4.1.3  Staff  Input  Requirements.  Input  is  n  SSF  file.  User  requirements  will 
d  etVrnine  frequency  of  process  in g . 

4 . 1 . i . 1 _ Input  Formats.  Reference  116000  Tile  and  Record  Control  Manual  IDD07, 

4.  1.7.1  Composition  Rules-  The  input  files  may  be  any  type  of  SSF  file  in  which 
rocoVs ’"arc  3lR  Surds  or  Less  in  length, 

4 . 1 . 2.3  Input _ Vocabulary .  N/ A . 

4 . 1 4 _ Staple  Inputs.  V/A . 


1 

i 
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4.1.3  Output  Requirements.  Output  will  Pc  a  compacted  file  in  SSF  format.  User 
requirements  determine  the  frequency  of  processing  and  disposition. 

4. 1.3.1  Output  Formats.  Reference  llbOOU  Pile  and  Record  Control  Manual  IDD07. 

4 .  1.3.2  Sample  Output  s .  N / A . 

4.1. 3. 3  Output  Vocabulary.  N/A. 

4.1.4  _ Utilization  of  System  Outputs.  User  determined. 

4.1.5  Recovery  and  Error  Correction  Procedures.  N /A . 

4.3  ZAP 2 FO  -  File  Decompaction  Program.  The  function  of  this  stand-alone  program 
is  to  convert  compacted  files  to  docompacted  SSF. 

4.2.1  Initiation  Procedures.  To  convert  compacted  files  to  decompacted  SSF,  the 
user  may  execute  the  following  JCL. 


Col  1  Col  8 

$  IDENT 

$  USERID 

J  LIBRARY 

S  USK 

$  LNTRY 

$  EXECUTE 

$  LIMITS 

J  TAPE9 

$  TAPI9 

$  TAP  1.9 

(OPTIONAL  PARAMETER  CARD) 
$  LNIUOI1 


Col  16 

(USER  SPECIFIED) 
(USER  SPECIFIED) 
LA 

:ap2fo,zaph:o 

ZAP2FO 


LA.X0D, ,nnnnn, .User  Library 
FA.Xll),  ,nnnnn,  .FZAP2F0AU 
FI  ,X20,  ,99999,  .FZAI’ZFOIU 


4.2.  1.1  Program  Notes: 

a.  Input  is  on  file  FA,  output  is  on  file  11. 

b.  Subroutine  ZAP4IO  is  required  by  ZAP2IO. 

c.  Library  LA  is  in  sequential  R*  format. 

d.  The  user  may  set  the  file- ID  desired  on  an  output  tape  by  using  the 
following  parameter  card.  Later  the  PCN  in  cc  1-11  and  the  desired  file-ID  in 

cc  19-31).  If  the  parameter  card  is  not  included,  the  file-ID  will  be  ‘EXPAND-OUT. 


Col  16 


Col  19 


S  DATA 

PCNSP891P21 


FZAP2FOAU0O 


4. 2. 1.2  References.  H6000  Control  Card  Reference  Manual  IBS19. 

4.2.2  Staff  Input  Requirements.  Input  is  any  file  that  has  been  compacted  by 
this  bCS.  User  requirements  will  determine  the  frequency  of  processing. 

4. 2. 2.1  Input  Formats.  Reference  ilbOOO  File  and  Record  Control  Manual  #DD07. 

4. 2.2. 2  Composition  Rules.  N/A. 

4.2. 2.3  Input  Vocabulary.  N/A. 

4. 2. 2. 4  Sample  Inputs.  N/A. 


:a-  £■  T&&  •  ft  * 
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4.2.3  Output  Requirements.  Output  is  a  SSF  file  expanded  from  a  DCS  compacted 
Tile.  User  requirements  will  determine  the  frequency  of  processing  and  disposition. 

4 .2. 3.1  Output  Formats.  Reference  H6000  File  and  Record  Control  Manual  #DD07. 

4. 2.3.2  Sample  Outputs.  N/A. 

4. 2. 3.3  Output  Vocabulary.  N/A. 

4.2.4  Utilizatior  of  System  Outputs.  User  determined. 

4.2.5  Recovery  and  Error  Correction  Procedures.  N/A. 

4.3  2AP3FO  -  Write  Compacted  File  Subroutine.  The  function  of  this  subroutine  is 


to  permit  user  GMAP,  FORTRAN,  and  other  programs  that  use  the  file  and  record  con¬ 
trol  facility  to  write  compacted  files.  The  subroutine  expects  the  user  to  write 
SSF  records  which  will  be  compacted  and  put  on  the  output  file. 


4.3.1  Initiation  Procedures.  ZAP3FO  contains  two  routines;  a  file  open  routine, 
COTOrN ,  and  a  Tile  close  routine,  COTCLO.  To  write  compacted  files,  the  user  must 
replace  his  CALL  OPEN  and  CALL  CLOSE  statements  for  the  files  to  be  compacted  with 
the  following: 

CALL  COTOPN  (FILEA.FILEB . etc.) 

CALL  COTCLO  (FILEA.FILEB, . etc.) 

4. 3.1.1  Program  Notes. 

a.  FILEA.FILEB . etc.,  must  be  described  as  SSF. 

b.  Limit  is  15  files  per  program. 

c.  COTOPN  saves  a  current  record  image  in  available  memory.  The  size  of  this 
record  is  the  maximum  record  size  of  the  file,  plus  one  word.  If  sufficient  memory 
is  not  available,  an  extra  K  of  memory  may  be  required. 

d.  The  JCL  must  include  the  following: 

Col  1  Col  8  Col  16 


LIBRARY 

USE 

ENTRY 

EXECUTE 

TAPE9 


USER  PGM, ZAP3F0 
USER  PGM 

LA.X0D, ,nnnnn , .User  Library 


e.  Some  116000  versions  of  FORTRAN  do  not  use  file  and  record  control  (GFRC) . 
Data  compaction  will  not  work  with  those  versions. 

4. 3.1. 2  References.  H6000  Control  Card  Reference  Manual  #BS19. 

4.3.2  Staff  Input  Requirements.  Input  is  any  type  of  SSF  file.  User  requirements 
will  determine  the  frequency  of  processing. 

4. 3. 2.1  Input  Formats.  Reference  H6009  File  and  Record  Control  Manual  #DD07. 

4.3. 2.2  Composition  Rules.  N/A. 

4.3. 2. 3  Input  Vocabulary.  N/A. 

4 . 3 . 2 . 4  Sample  Inputs.  N/A. 

4,3,3  Output  Requirements.  Output  will  be  a  SSF  file  in  compacted  form.  User 


requirements  will determine  the  frequency  of  processing  and  disposition. 

4. 3.3.1  Output  Formats.  Reference  116000  File  and  Record  Control  Manual  #DD07. 
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4.3. 3.2  Sample  Outputs.  N/A. 

4.3.3.3  Output  Vocabulary  .  N / A . 

4.3.4  Utilization  of  Systems  Outputs.  User  determined. 

4.3.5  Recovery  anJ  Error  Correction  Procedures.  N/A. 

4.4  ZAP4F0  Read  Compacted  File  Subroutine.  This  subroutine  permits  user  GMAP, 
FORTRAN,  and  other  programs  that  use  the  file  and  record  control  facility  to  read 
compacted  files.  Records  are  decompacted  and  provided  to  the  user  program  in  sys¬ 
tem  standard  format. 

4,4.1  Initiation  Procedures.  ZAP4F0  contains  one  routine,  C1N0PN.  To  read  com- 
pacted  Files,  the  user  should  execute  the  following: 

CALL.  C1NOPN  (FILEA.FILEB,. . .etc.) 

4.  4  .1.1  Program  Notes: 

a.  CINOPN  must  be  called  before  any  of  the  files  in  question  are  opened. 

b.  The  subroutine  automatically  decompacts  and  passes  a  system  standard 
format  record  to  the  using  program  for  each  'GET'  of  the  compacted  files. 

c.  FI  LEA ,  FI  I.EB  ,  . .  .etc  .  ,  must  be  described  as  system  standard  format. 

d.  CINOPN  saves  a  current  record  image  in  available  memory.  The  site  of  this 
imago  is  the  maximum  record  size  of  that  file  plus  two  words.  If  sufficient  memory 
is  not  available,  an  extra  K  of  memory  may  be  required. 

e.  JC1.  must  include  the  following: 

Col  1  Col  8  Col  lb 


LIBRARY 

USE 

ENTRY 

EXECUTE 

TAPE9 


USER  PGM , ZAP4FO 
USER  PGM 

LA.X0D, ,nnnnn , .User  Library 


f.  Some  116000  versions  of  FORTRAN  do  not  use  file  and  record  control  (GFRC) . 
Data  compaction  will  not  work  with  those  versions. 

4,4,  1.2  References.  116000  Control  Card  Reference  Manual  #BS19. 

4.4.2  Staff  I  m»ut  Requirements.  Input  is  a  system  standard  format  file  previously 
compacted  by  tins  DCS .  User  requirements  will  determine  the  frequency  of  processing. 

4.4. 2.1  Input  Formats.  Reference  116000  File  and  Record  Control  Manual  #DP07. 

4. 4.2.2  Composition  Rules.  Limit  is  15  files  per  program. 

4.4.2.3  Input  Vocabulary.  N/A. 

4. 4. 2. 4  Sample  Inputs.  N/A. 


4,4.3  Output  Requirements.  Output  is  a  SSF  file  expanded  from  a  DCS  compacted 
rile .  User  requirements  will  determine  the  frequency  of  processing  and  disposition. 

4. 4. 3.1  Output  Formats.  Reference  116000  File  and  Record  Control  Manual  #DD07. 
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4.4.4  Utilization  of  System  Outputs  User  determined. 

4.4.5  Recovery  and  Error  Correction  Procedures.  n/A. 

4.5  ZAP 5FO  -  COBOL  Program  Write  Compacted  File  Subroutine.  This  subroutine  per- 
mits  user  COBOL  programs  to  write  compacted  files.  The  subroutine  expects  the 
user  to  write  system  standard  format  records,  which  will  be  compacted  and  written 
in  the  output  file. 

4,5.1  Initiation  Procedures.  ZAP5FO  contains  two  routines;  a  file  open  routine, 
COMPOT,  and  a  file  close  routine,  COMPCL.  To  write  compacted  files,  the  user  must 
follow  the  OPEN  and  precede  the  CLOSE  statements  for  the  files  to  be  compacted 
with  the  following: 


CALL  COMPOT  USING  01-VARIABLE-A,  01- VARIABLE- B ,... etc . 
CALL  COMPCL  USING  Ol-VARIABLF.-A,  01 -VARIABLE- B ....  etc . 


4.5. 1.1  Program  Notes: 

a.  01 -VARIABLE-A,01-VARIAPLE- B , . . . etc .  must  be  01-level  record  descriptors 
of  the  output  files  to  be  compacted. 

b.  A  process  area  must  be  explicitly  or  implicitly  defined. 

c.  Limit  is  15  files  per  program. 

d.  COMPOT  saves  a  current  record  image  in  available  memory.  The  site  of  this 
image  is  the  maximum  record  site  plus  one  word.  If  sufficient  memory  is  not  avail¬ 
able,  an  extra  v  of  memory  may  be  required. 

e.  JCL  must  include  the  following: 


Col  1  Col  8  Col  16 


LIBRARY 

USE 

ENTRY 

EXECUTE 

TAPE9 


LA 

USER  PGM.ZAPSFO 
USER  PGM 

LA,X0D, , nnnnn, .User  Library 


f.  $  LOWLOAD  cannot  be  used. 


4.5.1 .2  References.  H6000  Control  Card  Reference  Manual  »BS19. 

4.5.2  Staff  Input  Requirements.  Inputs  are  SSF  records  generated  from  a  user 
COBOL  program  for  compaction  into  a  file.  User  requirements  will  determine  fre¬ 
quency  of  processing. 


4. 5.2.1  Input  Formats.  Reference  H6000  File  and  Record  Control  Manual  #DD07. 

4.5.2.2  Composition  Rules.  N/A. 

4 .5. 2. 3  Input  Vocabulary.  N/A. 

4. 5. 2.4  Sample  Inputs.  N/A. 

4.5.3  Output  Requirements.  Output  is  a  compacted  SSF  file.  User  requirements 
will  determine  the  frequency  of  processing  and  disposition. 

4. 5. 3.1  Output  Formats.  Reference  H6000  File  and  Record  Control  Manual  4DD07. 

4. 5. 3. 2  Sample  Outputs.  N/A. 
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t.S  3.3  Output  Vocabulary.  N/A. 

4  5^  4  Utilization  of  System  Outputs.  User  Determined. 

4  _ Recovery  and  Error  Correction  Procedures.  N/A. 

4.6  ZAPoFO  -  COBOL  Program  Read  Compacted  File  Subroutine.  This  subroutine  permits 
:ser  COBOL  programs  to  read  compacted  Files.  Records  are  decompacted  and  provided 
to  the  user  program  in  system  standard  format. 

4.6.1  Initiation  Procedures.  ZAP6F0  contains  one  routine  COMPIN.  To  read  com¬ 
pacted  Files,  the  user  should  follow  the  OPEN  statement  with  the  following: 

CALL  COMPIN  USING  01 - VARIABLE - AL ,  01 -VARIABLE-B . , , ,etc . 


5.6  1.1  Program  Notes: 


a. 

of  the 


b . 


d. 


4.6. 1.2 

4.6.2 
DC'S  O’ 

4,6. 2.  1 

4.6. 2.2 


4  6.2.3 

4.6.2.  4 

4.6.3 

71  ’  e . 

4.6.3. 1 

4.6. 3. 2 


01 -YARIABLE-A,01 -VARIABLE- B.  ,,  ,etc.  ,  must  be  an  01-level  record  descriptor 
input  files  which  are  to  be  read  (reference  ZAP5FO  example). 

A  process  area  must  be  explicitly  or  implicitly  defined. 

Files  must  be  closed  with  the  normal  COBOL  close  statement. 

JCL  must  include  the  following: 


Col  1  Col  8 


Col  16 


$  LI BPARY 

S  USE 

$  ENTRY 

$  EXECUTE 

I  TAPE9 


LA 

USER  PGM.ZAP6FO 
USER  PGM 

LA,X0D, .nnnnn , .User  Library 


References.  116000  Control  Card  Reference  Manual  »BS19. 


Staff  Input  Requirements.  Input  is  a  SSF  file  previously  compacted  b>  this 
ser  requirements  will  determine  the  frequency  of  processing. 

_ Input  Formats.  Reference  H6000  File  and  Record  Control  Manual  4DD07. 

Composition  Rules.  Limit  is  IS  files  per  program. 

Input  Vocabulary.  N/ A . 

Sample  Inputs.  N/A. 

Output  Requirements.  Output  is  a  SSF  file  expanded  from  a  DCS  compacted 
’Jser  requirements  will  determine  the  frequency  of  processing  and  disposition. 

Output  Formats.  Reference  H6000  File  and  Record  Control  Manual  #DD(J7. 


Sample  Outputs.  N/A. 


4.6. 3. 3  Output  Vocabulary.  N/A. 

4.6.4  Utilization  of  System  Outputs.  User  determined. 
4.6.?  Recovery  and  Error  Correction  Procedures.  N/A. 
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PART  FOUR  -  CARD  UTILITIES 
SECTION  7.  SYSTEM  SUMMARY 

7.1  System  Application.  Many  MAJCOM  standards  and  unique  system  are  required  to 

process  BCD  card  decks  for/from  non-WWMCCS  ADPE.  Since  the  H6000  WWMCCS  card  read¬ 
er  and  punch  recognize  a  64  character  ASCII  subset,  a  software  interface  is  required 
to  enable  processing  of  BCD  cards  containing  punches  outside  the  WWMCCS  64 
characters  ASCII  subset.  The  most  common  punches  are  the  (12)  (plus  0)  and  (11) 
(minus  0) .  (0)  (  0) 

7.2  System  Operation .  N/A. 

7.3  System  Configuration .  These  utility  programs  were  written  for  use  on  H6000 

WWMCCS  IDPE7 

7.4  Sys tem  Organization.  The  system  consists  of  two  standard  programs. 

7.4.1  ZAA0FO  -  H6000  Binary  to  BCD  Card  Input.  This  program  reads  a  BCD  card  deck 
in  binary  mode,  ransliterates  the  data  and  writes  the  card  images  to  a  file  in  SSF. 

7.4.2  ZAB0FO  -  H61Q0  BCD  to  Binary  Card  Punch.  This  program  punches  a  binary  card 
deck  from  SSF  £  i  1 e . 

7.5  Performance.  N/A. 

7.6  Data  Base.  N/A. 

7.7  General  Description  of  Inputs,  Processing.  Outputs: 

7.7.1  Inputs: 

7. 7. 1.1  ZAA0FO: 

a.  PCN  Parameter  Cards. 

b.  TAKE  Parameter  Card.  This  card  allows  the  user  to  substitute  invalid 
input  punches  with  a  specified  value. 

c.  Value  of  ID  Parameter  Card.  This  card  allows  the  user  to  specify  a  value 
of  ID  for  output  tape  files. 

d.  Replacement  Parameter  Card.  This  card(s)  allows  the  user  to  modify  stand¬ 
ard  input  character  transliteration. 

e.  User  Card  file  in  BCD  format. 

7. 7. 1.2  ZAB0FO: 

a  PCN  Parameter  Card. 

b.  Replacement  Parameter  Card.  This  card  allows  the  user  to  modify  standard 
output  character  transliterations. 


c.  Users  tape  or  disk  file  in  Standard  System  Format. 


W'11  ^  ^  WMWUMXW  ".  -  -WAl  .,WLW 


|U  > 


E 


i.  in 
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7.7.2  Processing; 


7. 7. 2.1  ZAA0FO.  BCD  card  file  is  read,  transliterated,  and  written  to  a  tape  or 
disk  file  in  Standard  System  Format. 


7  7  2 ■  2  ZAB0FO.  User  tape  or  disk  file  in  Standard  System  Format  is  read,  trans- 
literated  and  a  binary  card  deck  is  produced. 


7.7.3  Outputs: 

7. 7.3.1  ZAA0FO.  User  tape  or  disk  file  in  Standard  System  Format. 

7. 7.3.2  ZAB0FO.  User  card  file  is  BCD  format. 


■»  -  -■  - 


•Ai.i.-  ... - 
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SUCTION  8.  STAFF  UIM'TIONS  KKI.ATI.lt  TO  n.CIINICAI.  OPT.  RAT  IONS 


8  1  2AAI1FH  -  |», 000  Binary  to  BCD  lard  Input.  This  program  reads  BCD  card  docks 
Trora'  non  -  IlfiOOO'  ADPI'.  tTi  a  t  contains  punches  that  arc  outside  the  WWMCCS  64-character 
ASCII  subset. 

8.1.1  Initiation  Procedures.  To  initiate  the  execution  of  ZAApFO,  the  user  may 
prepare  and  execute  the" Job  Control  Language  (.1(11.)  as  outlined  in  para  8. 1.2. 4. 


8.1.1  . 1 _ Program  Notes: 

a.  ZAAJtFll  reads  BCD  cards  in  binary  mode,  via  a  dedicated  card  reader,  trans¬ 
literates  the  data  and  writes  the  card  tnap.es  to  a  user  defined  tape  or  disk  file 
in  SSP.  Invalid  characters  detected  on  input  are  replaced  by  the  character  "P" 
and  a  message  is  displayed  at  SYSOIIT  indicating  the  location  of  the  invalid 
character. 

b.  An  option  is  provided  to  allow  the  user  to  override  the  standard  translit¬ 
eration  table.  This  option  is  activated  by  setting  SWITCH  1  and  utilizing  the 
Replacement  Parameter  Card. 

c.  An  option  is  provided  to  allow  the  user  to  replace  invalid  input  charac¬ 
ters  with  other  than  the  default  of  "P".  Ibis  option  is  activated  by  setting 
SWITCH  2  and  utilizing  the  TAKR  Parameter  lard. 

j.  \n  option  i s  provided  to  allow  the  user  to  place  a  Value  of  ID  in  the 
internal  label  of  the  output  tape  file.  This  option  is  activated  by  setting  SWITCH 
3  and  utilizing  the  Value  of  ID  Parameter  lard. 

8 . 1 .1.2  References : 

a.  111,000  Control  Cards,  IIS  19. 

b.  116000  File  System,  BU38. 

c.  IK, 000  Ih  ilS,  II It 4 3 . 

S  1.3  S t a f f  1 npn t  Requirements  : 

8  .  1  .  3_.  1 _ Input  Formats: 

a.  PCN  Parameter  Card.  (Ref  Pi, ana  8-01). 

b.  Value  of  ID  Parameter  Card.  (Kef  figure  8-02). 

c.  PIN  Parameter  Card.  Required  (Ref  figure  B-OM. 

d.  TAKI  Parameter  Card.  (Ref  I’i  cure  8-04). 

e.  Replacement  Parameter  Card.  I R,  I  figure  8-05).  This  Parameter  Card  con¬ 
tains  a  series  of  definition  fields,  each  three  characters  long.  Fach  card  may 
contain  up  to  26  definition  fields. 

(1)  To  alter  the  standard  transliteration  tahle  to  define  a  replacement 
character,  the  first  column  contains  the  punch,  the  second  and  third  columns  con¬ 
tain  the  internal  OCTAL  value  that  the  punch  is  to  be  converted  to. 


*1* 


•!'i 

.  ;l  • 


:s:3 


•t*rj 

1i*f 


(12)  (12) 

(  6)  (  0) tf 
(  8)  (  1) 


(12) 


A  (  0)  punch  will  be  converted  to  in  OCTAL  60  and 
(  1) 


(12) 


A  (  6)  punch  will  be  considered  lllegel. 
(  *) 


8. 1.2. 2  Composition  Rules.  n/A. 

8. 1.2. 3  Input  Vocabulary.  N/A. 

8.1.1.4  Sample  Inputs: 


© 


a.  A  sample  job  stream  to  read  a  BCD  card  deck  and  produce  a  Standard  System 
Format  tape  file  with  a  value  ID  of  "FM.J01FO3X" : 


1  Col 

8 

Col  16 

s 

IDFNT 

(USER  SPECIFIED) 

1 

USERID 

(USER  SPECIFIED) 

1 

LIBRARY 

LB 

$ 

USE 

ZVA0FO 

$ 

ENTRY 

ZAA0FO 

$ 

EXECUTE 

ON  3 

$ 

LIMITS 

,5K 

s 

PRMFL 

LB  ,R,  S ,  (USER  -  SPF.CO 

1 

READ 

Cl 

1 

TAPE9 

FI ,X1D, ,99999, ,FMJ| 

PCNSPB91A00 

FMJ01FO3X 

ID 

$ 

F.NDJOB 

sample  job  stream  to  read 

a  BCD  deck,  alter  the 

to  uscan(H)  punch  (*)  as  a  replacement  value  for  any  invalid  characters  found  in 
(  4) 

(  8} 

the  data. 


1 


°  .  ^aiMI  iMMi 
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1  .lamia  rv  19  7  7 


o  I  1  i  n  l  i  i'  I  1  <i 


i 

1  III  NT 

(USER  SPEC  1  E  1  f  ill 

i 

USI  R 1 11 

(USER  SPEC  II- II  D) 

s 

LIBRARY 

I.B 

$ 

USE. 

ZAA0EO 

s 

ENTRY 

ZAAB10 

$ 

EXECUTE 

ONI ,0N  2 

$ 

LIMITS 

,  SK 

$ 

PRMPL 

I.B, R.S,  (USER-SPEC) 

$ 

IE  All 

Cl 

$ 

PRMFI. 

El  ,R/W,S ,  (USER-SPEl 

$ 

ENIUOB 

rCNSI’H'U  \tU 
TAKE” * 
t REPLACEMENT 

PARAMETER  CARP) 

The  take  (PARAMETER  CAItP)  is  input  as  a  separate  card  deck  when  ZAA0FO  dedicates 
the  card  reader. 

Col  1-4  of  the  Replacement  Parameter  Card. 
f1?)  37  ('J)  P‘iramctcr  sard  t0  convert  t0 

OCTAL  37  and  to  delete  making  it  illegal. 


8.1.3  Output  Requirements : 

S . 1 . 3 ,  1  Output  Formats ■  K/A . 

.,  8  .  1  ■  3.  2  Sample  Outputs.  N/A. 

ii!*1  8.  1.3.3  Output  Vocabulary.  N/A. 

8^1  .  •!  Util  i  z  at  ion  of  System  Outputs  .  ^ 

8  .  1  .  S  R  ec  live  ry  and  Error  Correction  l'r  i  >  ■  •  d  u  r  e_s  <  N  /  A . 

iL-J _ ZABfiEO  -  116000  BCD  to  Binary  Card  I’niu-h .  This  program  reads  a  SSi  14  word 

tile,  expands  it  to  27  word  binary’  records  performing  specified  character  translit- 
erat ions  and  punches  these  converted  records  in  binary  mode. 

L  initiation  Pr o ce d ur es .  j0  initiate  the  execution  of  ZABREO,  the  user  may 
prepare  and  execute  the  Job  Control  Language  (JCL)  as  outlined  in  para  8. 2. 2.4. 

8. 2.  1.1  Program  Notes.  The  function  of  this  program  is  to  output  BCD  card  decks 
containing  nonstandard  ASCII  characters.  this  table  is  initialized  for  the  standard 
ASCII  character  set  with  the  exception  of  OCTAL  60  and  40.  OCTAL  60  will  punch  as 
a  (12)  and  4fl  as  an  (11)  r 

t  m  (  0i. 

1  he  user  can  modify  this  table  to  punch  different  characters  for  specified  OCTAL 
values.  The  same  parameter  card  format  and  rules  described  for  ZAAIF0  apply  to 
ZAMEO;  however,  only  the  replace  (ref  poi  .giaph  8. 1.2. 1.4)  capability  is  provided.  The 
definition  field  in  1 1: i ^  case  has  a  different  meaning;  the  OCTAL  value  specified  in 
the  second  and  third  pbsjtions  relates  to  the  internal  OCTAL  value  and  the  first 
position  specifies  the  Character  to  be  punched  for  that  internal  OCTAL  value  If 
paiai.eter  cards  arc  usee,  one  of  the  following  S  Control  Cords  must  be  included  in 
thi  job  stream. 

Col  1  Ob  1  8  Col  16 

$  READ  i.A 


iirr*j;r<u-r:  ••"pr*-  fltnipi;  JBMMwmr 

V 


1 1  r  i  n-firriilftii 


ttftiafriaiLvrfnfr  a-tiaatflMaii 
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'lie 


8-4 


•IS 

> 


This  will  dedicate  the  card  reader  (since  they  must  be  read  in  binary  mode).  Ur 


Col  1 
$ 


Col  8 

I’RMPL 


Col  16 

FA, R/N,S, (USER-SPEC) 


8. 2. 1.2 

Re  ferences : 

•Ir'-.i 

( 

a . 

H6000  Control  Cards,  BS19. 

1 

b  . 

HbOOO  Pile  System,  RR38. 

c. 

116000  GCOS ,  BR43 . 

8.2.2 

Staff  Input  Requirements; 

8.2,2. 1 

Input  Formats: 

‘  *  H 

a . 

PCN  Parameter  Card.  (Ref  Figure  B-06). 

b. 

8. 2. 2. 2 

Replacement  Parameter  Card.  (Ref  Figure 

Composition  Rules 

i 

i 

8. 2. 2. 3 

8. 2. 2. 4 

Input  Vocabulary.  N/A. 

Sample  Inputs: 

a.  A  sample  job  stream  to  produce  a  BCD  card  deck  for  a  standard  system  format 
input  tape  file: 


Col  1 


Col  8 


Col  16 


M|t 

• 

3 

1  DENT 

(USER  SPECIFIED) 

$ 

USERID 

(USER  SPECIFIED) 

\ 

$ 

LIBRARY 

LB 

\ 

$ 

USE 

ZAB0FO 

1 

$ 

ENTRY 

ZAB0FO 

i 

| 

S 

EXECUTE 

1 

i 

LIMITS 

,  5  K 

1 

i 

TAPE9 

LB , X0D, ,nnnnn, .USER 

1 

f 

$ 

TAPE9 

FI 

\ 

i 

READ 

CA 

i 

PUNCH 

Cl  (OR  i  SYSOUT  Cl) 

i 

ENDJOB 

’f'‘4 

(Parameter 

Card  if  used  is 

input  as  a  separate 

*ir 

dedicates 

the  card  reader) 

$ 

ENDJOB 

Col  1-9 

of  Replacement 

Parameter  Card: 

(12) 

(12) 

(12) 

(  6)  60 

i  0)  37  ( 

11)  40  Parameter  card 

to  punch  (  6)  for 

i 

(  8) 

(  8) 

OCTAL  60  instead  of  ,  punch  a 

(  0) 

for  OCTAL 

37  and  punch  (11) 

i 

i 

for  an  OCTAL  40 

instead  of  (11) 

(  0) 

• 

i 

i 

punch . 

b. 

The  same 

job 

using  a  disk  file 

as  input  instead  of 

fiwNt:  <’  '«»*«■  u  u  I'Hmiii  iiwiewi— M«aiimk«.i.m>,niiiM.. 
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8  ■  S 


Col  1 

Col  8 

Col  16 

$ 

IDENT 

(USER  SPECIFIED) 

$ 

USERID 

(USER  SPECIFIED) 

$ 

LIBRARY 

LB 

$ 

USE 

ZAB0FO 

$ 

ENTRY 

ZAB0FO 

$ 

EXECUTE 

$ 

LIMITS 

,  5K 

t 

TAPE9 

LB  ,X0L,,nnnnn(, USER-LIBRARY 
F1,R,S. (USER-SPEC) 

$ 

PRMFL 

f, 

PUNCH 

Cl (OR  $  SYSOUT  Cl) 

i 

READ 

CA (OR  $  PRMFL  FA, R/W , S , (USER 

$ 

ENDJOB 

(Parameter  Card  if  used  is 

input  as  a  separate  card  deck  when  ZA] 

dedicates  the  card  reader. 

) 

$ 

ENDJOB 

Col  1-9 

of  Replacement  Parameter  Card: 

(12) 

(12) 

(  6)  60 

(  0)  37  (11)  40 

(ref  paragraph  8. 2. 2. 4. a) 

(  8) 

c . 

Parameter 

cards  may  be  put  to 

a  perm-file  for  ease  of  execution.  A 

sample 

job  stream 

to  put  parameter  cards  to  a  perm- file. 

Col  1 

Col  8 

Col  16 

$ 

CONVER 

S 

READ 

IN  (See  Note  1) 

$ 

INPUT 

MBIN 

$ 

PRMFL 

OT, R/W, S, (USER-SPEC) 

$ 

ENDJOB 

***EOF 


NOTE  1:  The  $  READ  control  card  dedicates  the  card  reader.  After  the  card  reader 
is  assigned  to  the  CONVER  activity,  load  card  reader  with  parameter  card(s)  and  a 
EOF  control  card  and  press  operate. 


Cj  * 


mcoio  T  1  TL I 


File  Identification 
CZAA0FOAU _ 


VALUE  OF  ID  Parameter 
Card 


CLASSIFICATION 

Unclass i fied 


•c«/pc« 

SP891-A00 


FILE  DESCRIPTION 


RECORD  POSITIONS 


01  -  12 

AN 

Enter  FILE-ID. 

13  -  16 

Blank. 

17  -  18 

AL 

Enter  "ID". 

19  -  80 

Blank. 

TYPE/CLASS 


SPECIAL  INSTRUCTIONS 


FILE-ID 

Filler 

Card  Identity 
Filler 


AFM  171-604 
Volume  II 


1  December  1976 


RECORD  LAYOUT 


fill  T  i  TL C 

Parameter  Card/ 
Binary  Deck 
CZAA0FOBU 

AICORD  TITtl 

PCN  Parameter  Card 

CL  kill  ft  CATION 

Unclass i f ied 

RCS/’CN 

SP891-A01 

FILE  DESCRIPTION 

RECORD  POSITIONS 

|  TYPE/CLASS 

SPECIAL  INSTRUCTIONS 

PIC 

01  -  11 

AN 

Enter  "PCNSP891A01" . 

Filler 

12  -  80 

Blank. 

AF 


'QtU 

*JO  TO 


1190 


i 


ITI 


FIGURE  8-03.  PCN  Parameter  Card 


■  (COM  T  ML  t 


cl  ***i  mc«tio« 


mm  n-MMtm 

1  . January  1977 

i  o  1  time  1  1 

[  RECORD  LAYOUT  j 

*  (CAM  nut 

Parameter  Card/ 

Unclassified 

Binary  Deck 

Replacement 

Parameter 

•CfSPCft 

CZAAJFOBU 

Card 

SP891-A01 

j  rat  ocscmrnoM 

ACCORD  POSITIONS 

TYPC/ClAIS 

— nagi  1  u  — » 

ALTER  C 

rTlON 

Definition  Field  *1 

Input  Character 

81 

AN 

Character  to  be  modi- 

f  i  ed . 

Internal  OCTAL 

02  -  03 

UN 

OCTAL  value  that  in- 

Value 

put  character  punch 

is  to  be  converted  t 

Definition  Fiei-'. 

04  -  78 

AN 

Same  format  as  Defini 

12  -  *26 

t ion  Field  *1 ,  if  ( 

unused  Blank. 

Fi  1  le  r 

79  -  80 

Blank . 

DELETE 

DPT  ION 

Definition  Field  *1 

Input  Character 

n 

AN 

Character  to  be  do- 

leted. 

Filler 

02  -  03 

Blank. 

Definition  Fields 

04  -  78 

AN 

Same  format  as  Defini 

•2  -  »  26 

t ion  Field  1 1 ,  if 

unused  Blank. 

Fill e i 

79  80 

Blank. 

REPLACE 

OPTION 

Definition  Field  *  1 

Input  Character 

01 

AN 

Character  to  be  re- 

placed. 

Output  Character 

02 

AN 

New  character  replac- 

ing  input  character. 

Tiller 

03 

B 1 ank. 

Definition  Fields 

04  -  78 

AN 

Same  format  as  Defini- 

*2  -  *26 

t ion  Field  *  1 ,  if 

unused  Blenk. 

Filler 

79  -  80 

Blank. 

AF  •  "  1190  loitiMt  am  ••miTf. 

«U«  V# 

FIGURE  8-05.  Replacement  Parameter  Card 
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RECORD  LAYOUT 

rill  TITLE 

Parameter  Card 
CZAB0FOAU 

•  (COM  VI  Til 

Replacement  Parameter 
Card 

CLAIII  MC  AT  I  OH 

Unclassified  [ 

l»C*/PCN 

SP891-B01 

FILE  DESCRIPTION 

RECORD  POSITIONS 

TYPE/CLASS 

SPECIAL  INSTRUCTIONS 

Definition  Field  #1 

Output  Character 

01 

AN 

Output  character  to 
be  punched. 

Internal  OCTAL 
Value 

02  -  03 

UN 

The  OCTAL  value  of 
input  to  be  trans¬ 
literated  to  the 
output  character. 

Definition  Fields 
#2  -  #26 

04  -  78 

AN 

Same  format  as  Defi¬ 
nition  Field  #1,  if 
unused  Blank. 

Filler 

79  -  80 

Blank . 

AF  1190  MtVIOUi  ID  IT! 


FIGURE  8-07.  Replacement  Parameter  Card 
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PART  FI VI:  -  GLNFRAl.  PURPOSH  TAPI:  F 1 1,1;  INPUT  UTILITY 
SUCTION  9.  SYSTF.M  SUMMARY 

9.1  System  Application.  The  Function  of  the  General  Purpose  Tape  lilt  Input 
UtTYity  ( CpTFTU )  Ts  to- read  7  or  9-track  116000  Standard  System  or  Non-Standard 
System  Format  Tape  Files  and  convert  them  into  the  opposite  format.  Character 
transliterations  are  perFormed  as  specified  by  the  user. 

9.2  System  Ope  ration .  N/A. 

9.3  System  Con F i gurat ion .  The  GPTFIU  was  written  for  use  on  the  IkdlOO  computer 
system  with  Tape  I/G  devices  . 

9.4  System  Organization.  The  GPTFIU  consists  of  two  stand-alone  programs  (lATilO 

and  :Ai7T0]  . - ' - 

9.5  Performance.  N/A. 


9 .  6 _ Data  Has e  .  N /  A . 

9 . 7  General  Description  of  Inputs,  Processing,  Outputs : 

9.7.1  Inputs : 

a.  ZAT1FO  -  any  7  or  9-track  tape  with  a  logical  record  site  less  than  1909 
characters,  whose  records,  if  variable  in  length,  are  unblocked  with  no  control 
information  included. 

b.  ZAT2FO  -  any  SSF  tape  or  disk  file. 

9.7.2  Processing .  The  GPTFIU  provides  the  capability  to  convert  an  SSI  tape  or 
disk  to  "a  Non-Standard  System  Format  Tape  and  vice-versa. 

9.7.3  Ou tputs : 

a.  ZAT1FO  -  any  SSF  tape  or  disk  tile. 

b.  ZAT2FO  -  the  output  file  can  he  written  to  a  or  9  track  tape  in  a 
variety  of  modes  and  densities.  True  physical  record  length  is  not  always  reflected 
on  the  output  tape  due  to  116000  hardware  limitations  that  require  all  physical  rec¬ 
ord  lengths  be  written  modulo  4  (ASCII,  FBCDIC)  or  modulo  (>  (Binary,  BCD).  This 
limitation  requires  the  padding  of  physical  records  with  zeros  to  the  next  greater 
word  boundary. 


Pflip*! 


. . ."^Mmsanpwp 
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SECTION  10.  STAFF'  FUNCTIONS  RELATED  TO  TECHNICAL  OPERATIONS 

10.1  ZAT1FO  -  Ccneral  Purpose  Tape  File  Input  Program.  The  function  of  this 
program  is  to  read  a  non  -  Il6  000 /H6 35  tape  ,  perform  specified  unblocking  and  char 
aiter  transliteration  and  ultimately  create  a  Sia" , :rri  System  Format  (SSE-)  tape 
or  disk  file. 

10.1.1  Initiation  Procedures.  To  initiate  the  execution  of  ZAT1F0,  the  user 
must  introduce  the  following  JCE  for  execution: 

Col  1  8  16 

$  1  PENT  (USER  SPECIFIED) 

$  USERID  (USER  SPECIFIED) 

$  LOWLOAD 

$  LIBRARY  LA 

$  USE  ZAT1FO 

$  ENTRY  ZATIFO 

$  EXECUTE 

$  LIMITS  +  + , kk 

$  TAPEn  LA, LID,, nnnnn ,  ,  (USER- LIBRARY) 

(OPTIONAL  PARAMETER  CARDS) 

$  TAPEn  FI  , FID,, nnnnn,, (USER  NON-SSF  INPUT) 

$  TAPEn  F2.F2D, ,, .(USER  SSF  OUTPUT) 

$  ENDJOB 

where  +♦  =  the  user's  estimated  run  time. 

where  kk  «  the  user's  estimated  core  requirements. 

Program  ZAT1F0  operates  in  6K  with  1920  character/1280  byte  input  buffers.  Add 
IK  for  each  additional  3000  character/2000  bytes  contained  in  the  input  physical 
record . 

10.1.1.1  Program  Notes.  N/A. 

10.1.1.2  References: 

a.  1160(10  Control  Cards  Reference  Manual,  DD31 . 

b.  116000  File  and  Record  Control  Manual,  DD07. 

10.1.2  Staff  Input  Requirements.  User  requirements  will  determine  the  frequency 
of  processing. 

10.1.2.1  Input  Formats .  If  the  optional  parameter  cards  arc  not  provided,  the 
following  default  characteristics  arc  assumed  for  the  input  tape: 

Unlabeled 
Binary/odd  parity 
Low  density 

Unblocked  80-character  records 
11200  character  set  transliteration 
No  error  recovery 

Single  file  (up  to  99  reels  input) 

No  pad  character  deletion 

a.  PIC  Card.  If  oarameter  cards  are  input,  the  PIC  card  must  be  the  first 
ca  rd  I  I  i  gu  re  1 1'  -  IU  )  . 

b.  Input/Output  Card.  This  parameter  card  must  be  the  second  card  and  is 
used  to  define  the  output  file  value  of  ID  (if  mag  tape)  and  all  the  physical 
characteristics  of  the  input  tape  file  (Figure  10-02). 


10-2 
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c.  Transliteration  Card(s).  This  card(s)  is  optional.  If  other  than  standard 
transliteration  table  values  are  to  be  utilized,  one  or  more  of  these  cards  must 
be  provided  immediately  after  the  Input/Output  Card.  Ref  Figure  10-05.  Also 
ref  Figures  10-07  thru  10-09  for  standard  transliteration  table  values. 

10.1.2.2  Composition  Rules.  The  maximum  input  tape  physical  record  size  is 
24,5^0  character/l6,58fl  bytes.  The  maximum  logical  record  size  is  1908  characters/ 
bytes . 

10.1.2.3  Input  Vocabulary .  N / A . 

10.1.2.4  Sample  Inputs.  N/A. 

10.1.3  Output  Requirements.  User  requirements  will  determine  the  disposition  of 
the  output  rile(s). 

10.1.3.1  Output  Formats.  Output  will  be  a  SSF  tape  or  disk  file.  Kef  DD07  for 
format  s . 

10.1.3.2  Sample  Outputs.  A  parameter  card  listing  is  produced  when  parameters  are 
input.  All  parameter" cards  will  be  edited  to  replace  the  116000  slew  character 
(778)  with  (  37g )  prior  to  printing  (Figure  10-11). 

10.1.3.3  Output  Vocabulary.  N/A. 

10.1.4  Utilization  of  System  Outputs.  N/A. 

10.1.5  Recovery  and  Error  Correction  Procedures.  N/A. 

10.2  ZAT2FO  -  General  Purpose  Tape  File  Output  Program.  The  function  of  this 
program  is  to  read  an  H6000/II635  SSF  tape  or  dish  file,  perform  specified  labeling, 
blocking  and  character  transliteration,  and  ultimately  create  a  non-H6000/H635 
tape  file. 

10.2.1  Initiation  Procedures.  To  initiate  the  execution  of  ZAT2F0,  the  user  must 
introduce  the  following  JCL  for  execution: 


Col 


1 

R 

16 

$ 

1  DENT 

(USER  SPECIFIED) 

i 

USERID 

(USER  SPECIFIED) 

i 

LOWLOAD 

$ 

L 1 BRARY 

LA 

* 

USE 

ZAT2FO 

s 

ENTRY 

ZAT2FO 

$ 

EXECUTE 

$ 

LIMITS 

♦  ♦  ,kk 

$ 

TAPEn 

LA, LID, ,nnnnn , , (USER 

(OPTIONAL  PARAMETER  CARDS) 

s 

TAPEn 

FI  .Fill,  ,nnnnn  ,  ,  (USER 

$ 

TAPEn 

F2 , F2D, , , , (USER  NON-' 

$ 

ENDJOB 

F  INPUT) 
OUTPUT) 


where  ♦♦  *  the  user's  estimated  run  time. 

where  kk  *  the  user's  estimated  core  requirements. 

Program  2AT2FO  operates  in  6K  with  1920  charac ter/1 280  byte  output  buffers.  Add 
lk  for  each  additional  3000  characters/2000  bytes  to  be  contained  in  the  output 
physical  record. 
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10.2.1.1  Program  Notes.  N/A. 

10.2.1.2  References: 

a.  116000  Control  Card  Reference  Manual,  DD31. 

b.  116000  File  and  Record  Control  Manual,  DD07. 

10.2.2  Staff  Input  Requirements.  User  requirements  will  determine  the  frequency 
of  processing. 

10.2.2.1  Input  Formats.  If  the  optional  parameter  cards  are  not  provided,  the 
following  default  characteristics  are  assumed  for  the  output  tape: 

Unlabe led 
Binary/odd  parity 
Low  density 

Unblocked  80-character  records 
H200  character  set  transliteration 
Single  file 

a.  PIC  Card.  If  parameter  cards  are  input,  the  PIC  card  must  be  the  first 
card  (Figure  10-0.3). 

b.  Input/Output  Card.  This  parameter  card  must  be  the  second  card  and  is 
used  to  define  the  input  file  value  of  ID  (mag  tape  only)  and  all  the  physical 
characteristics  of  the  output  tape  (Figure  10-04). 

c.  Transliteration  Card(s).  These  card(s)  are  opt ional .  If  other  than  standard 
transliteration  table  values  are  to  be  utilized,  one  or  more  of  these  cards  must 

be  provided  immediately  following  the  Input/Output  Card  (Figure  10-05).  Also  refer¬ 
ence  Figure  lO-O'thru  10-09  for  standard  table  values. 

d.  Label  Card(s).  These  card(s)  are  optional.  If  labels  are  specified  by 
the  OUTPUT  LABFLS  field  (ref  Figure  10-04),  this  card(s)  must  follow  all  other  cards 
in  the  input  dec*  (Figure  10-06). 

10.2.2.2  Composition  Rules.  The  SSF  input  file  cannot  contain  partitioned  records. 

10.2.2.3  Input  Vocabulary.  N/A. 

10.2.2.4  Sample  Inputs.  N/A. 

10.2.3  Output  Requirements.  User  requirements  will  determine  the  disposition  of 
the  output  tape(s). 

10.2.3.1  Output  Formats.  Output  will  be  a  non-H6000/U635  tape  file  created 
according  to  user  supplied  or  default  parameters. 

10.2.3.2  Sample  Outputs.  A  parameter  card  listing  is  produced  when  parameters  are 
input .  All  parameter  cards  will  be  edited  to  replace  the  H6000  slew  character  "!" 
(77g)  with  **%"  (37g)  prior  to  printing  (Figure  10-12). 

10.2.3.3  Output  Vocabulary.  N/A. 

10.2.4  Utilization  of  System  Outputs.  N/A. 

10.2.3  Recovei/  and  Lrror  Correction  Procedures .  N / A . 
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ZAT1FO  PIC  CARD 

DESCRIPTION 
Enter  "PCNSP89 1T1 1" 


ZAT1F0  PIC  Card 
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ZAT1FO  INPUT/OUTPUT  CARD 
FIELD  (Col)  DESCRIPTION 

OUTPUT  ID  (01-12)  If  an  Internal  Value  of  ID  is  desired  (for  magnetic  tape  only) 
enter  the  value  left  justified. 

INPUT  LABELS  The  following  describes  the  internal  labels  contained  on  the 

(13-18)  input  tape. 

"NLABEL"  or  blank  -  unlabeled. 

"SLABEL"  -  standard  H6000  labels. 

"ULABEL"  -  non-standard  H6000  label  with  a  file  mark  follow¬ 
ing  (label  is  ignored). 

"ULABEX"  -  non-standard  H6000  label  without  a  file  mark  follow¬ 
ing  (label  is  ignored). 

"ULAHTL"  -  non-standard  H6000  header  and  trailer  labels  with  a 
file  mark  following  the  header  and  preceding  the  trailer 
(labels  are  ignored) . 

"ULAHTX"  -  non-standard  H6000  header  and  trailer  labels  with 
no  file  mark  following  the  header  (labels  are  ignored). 

Note  1:  The  above  parameters  stating  non-standard  H6000 
header  and/or  trailer  labels  implies  that  the  stranger  tape 
input  contains  labels  that  were  created  by  a  foreign  system; 
i  .e.  ,  B3500 ,  IBM  360,  etc. 

Note  2:  The  following  modifications  may  be  made  to  the  INPUT 
LABELS  field  to  allow  printing  of  the  header  and/or  trailer 
labels  on  the  execution  report.  No  character  transliteration 
will  be  accomplished  but  the  labels  will  be  edited  to  replace 
the  H6000  slew  character  (770)  with  (378). 

To  print  header  label (s)  substitute  “PH"  for  "LA"  in  col  14-15. 

To  print  trailer  label (s)  substitute  "PT"  for  "HT"  in  col 
16-17. 

INPUT  MODE/PARITY  The  following  describes  the  mode/parity  of  the  input  tape> 

(19-22) 

"BNRY"  or  blank  -  odd  parity 

" ASA9 "  -  9-track  mode.  This  should  be  used  only  for  9-track 
tape  files  that  are  recorded  in  8-bit  format  (EBCDIC,  ASCII ,  etc.) 

" MBCD''  -  even  parity.  Even  parity  on  7-track  input  results  in 
a  hardware  character  transliteration  (rigure  10-10). 

BLANK  (23-24) 

INPUT  DENSITY (25-28)  The  following  describes  the  recording  density  of  input  tapes 

"L0WJ4"  or  blank  -  site  specified  low  density  (normally  556  bpi) 
"HIGH"  -  9ite  specified  high  density  (normally  800  bpi) 

BLANK  (29-30) 


FIGURE  10-02.  7.AT1FO  Input/Output  Card 
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FIELD  (Col) 

INPUT  BLOCXING 
FACTOR  (31-36) 


INPUT  RECORD 
LENGTH  (37-42) 


DESCRIPTION 

The  following  describes  the  blocking  factor  of  the  Input  tape: 

"UNBLOK”,  "VARYJOrf"  or  blank  -  a  blocking  factor  of  1  la 
assumed.  If  thla  option  la  apeciflad,  the  INPUT  RECORD  LENGTH 
field  la  interpreted  aa  the  maximum  phyaical  record  alse  and 
cannot  exceed  1908  charactera/bytaa. 

"BLKnnn"  -  where  "nnn*  la  a  right-juatified  numeric  integer 
deacribing  the  number  of  fixed  length  logical  record a  con¬ 
tained  in  a  phyaical  record. 

The  following  deacribea  the  logical  record  length  on  the 
input  tape : 

Blank  -  a  logical  record  length  of  80  charactera/bytea  ia 
aaaumed. 

"XLnnnn"  -  where  "nnnn"  ia  a  right-juatified  numeric  integer. 
This  option  ia  used  to  specify  that  each  logical  record  con¬ 
tains  "nnnn”  charactera/bytea  for  fixed  length  records  or 
"nnnn"  maximum  characters  for  unblocked  records. 


Note:  When  the  INPUT  PADDING  DELETION  field  is  used,  tha  numeric  integer  of  pad¬ 
ding  deletion  must  be  subtracted  from  the  INPUT  RECORD  LENGTH  field. 


INPUT  TRANSLITERATION  The  following  field  describes  tha  various  transliteration 
(43-48)  options  that  may  be  performed  on  tha  input  tape: 

"NONEW  -  no  input  transliteration  ia  to  be  accomplished 

Standard  Tables  "H200J4J4"  or  blank  -  for  use  with  H200  7-track  odd  parity  tape. 

"EBCDIC"  -  for  uae  with  B3500/B6700  9-track  tape.  Can  be 
uaad  for  IBM  360  also. 

"ASCII*"  -  for  use  with  H6000  9-track  tape  recorded  in  the 
64  character  UASCI  set. 

"BCL****  -  for  uae  with  B3500/B6700  7-track  tape.  Can  be 
used  for  IBM  360  alao. 


Standard  Table  Modi-  "TRANS 6"  -  6-bit  user  supplied  table. 
flcatlon  or  User 

fable  Replacement  "TRANS 9"  -  8-bit  user  supplied  table  or  standard  table 

'  . . modification. 


Note:  Ref  Figure  10-05  for  a  complete  description  of  the  various  options  available. 

INPUT  PARITY  ERROR  The  following  field  deacribea  the  procedures  to  be  accomplished 
(49-54)  in  the  event  of  an  uncorrectable  input  tape  error: 

Blank  -  will  cause  an  error  message  to  be  displayed  on  the 
execution  report  and  processing  terminated  when  an  uncorrect¬ 
able  error  is  encountered  on  the  input  tape. 

"USE***"  -  this  option  permits  processing  of  tha  physical 
record  in  error. 

"IGNORE"  -  this  option  permits  deletion  of  the  physical 
block  in  error  and  continuation  of  processing. 

BLANK  (55) 


FIGURE  10-02.  ZAT1F0  Input/Output  Card  (cont) 


10-7 


ATM  171-604 (C5)  1  June  1978 

Volume  II 


riELD  (Col) 

INPUT  PARITY 
COUNT  (56-57) 


INPUT  FILE/RSEL 
COUNT  ( 50-60) 


BLANK  (61-66) 

INPUT  PADOINC 
KUTION  (67) 


DESCRIPTION 

The  following  field  ia  used  in  conjunction  with  the  INPUT 
PARITY  ERROR  field  to  limit  the  number  of  input  errors  to 
process : 

Blank  -  if  the  INPUT  PARITY  ERROR  field  specifics  "USE”  or 
‘IGNORE*,  that  option  will  be  applied  to  the  entire  file. 

*nn"  -  where  *nn*  is  a  numeric  integer  to  limit  the  nuafcer 
of  input  errors  to  USE  or  IGNORE. 

The  following  field  description  describes  the  input  ss  s 
multi-reel  file  or  a  multi-file  reeli 

Blank  -  up  to  99  reels  of  a  single  fils  input  is  assusmd. 
Operator  option  allows  termination  after  each  reel  of  input. 

‘Win*  -  where  *nn*  is  a  numeric  integer  describing  the 
nuNer  of  files  contained  on  one  input  tape  reel. 

”Rnn*  or  "Nnna  -  where  ‘nn*  is  a  numeric  integer  describing 
the  number  of  reels  contained  In  the  input  file. 


The  following  field/subfields  description  indicate  that  the 
input  file  contains  unwanted  characters/by ten  in  the  record: 

*  *  -  no  padding. 

*P*  -  indicates  that  one  or  more  of  the  pad  subfield (s)  con¬ 
tain  a  numeric  value. 


Note:  The  following  pad  subfields  are  prograamatlcally  ADDED  to  the  INPUT  RECORD 
LEM G7N  field  when  computing  the  physical  record  buffer  sires:  therefore,  the  INPUT 
RECORD  LENGTH  field  must  be  REDUCED  by  the  numeric  integer  ueed  by  the  pad  subfields. 
(INPUT  RECORD  LENGTH  FIELD  ♦  PAD  SUBFIELD  -  TOTAL  INPUT  RECORD  LENGTH) 


PRE-BLOCK  PAD 
(6S-69) 


BLANK  (7U ) 

PRE-RECORD  PAD 

(71-72) 


BI.ANK  (71) 

COST- RECORD  l<AI> 
(74-75) 


*nn*  -  where  *nn*  Is  a  numeric  integer  deecribing  the  nustoer 
of  characters/bytee  to  be  deleted  from  the  beginning  of  each 
physical  record. 


*nn*  -  where  *nn*  is  a  numeric  integer  describing  the  number 
of  characters/bytes  to  be  deleted  from  the  beginning  of  each 
logical  record. 


*nti*  -  where  *nn*  is  a  numeric  integer  describing  the  number 
of  character/bytes  to  be  deleted  from  the  ending  of  each 
logical  record. 


Note:  This  subtle Id  should  be  used  with  caution  when  the  input  file  contains 
variable  length  records. 


FIGURE  10-02.  BATlFO  Input/Output  Card  (cont) 
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FIGURE  10-03. 


ZAT2FO  PIC  CARD 


DESCRIPTION 
Enter  "PCNSP891T21" 


ZAT2P0  PIC  Card 
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III. ID  (Coll 
IN  HIT  111  (01  12 


OUTPUT  LABELS 
(13-18) 


Note:  If  user 

10-1)6)  . 

OUTPUT  MODE/ 
PARITY  (19-22) 


BLANK  (23-24) 

OUTPUT  DENSITY 
(25-28) 


BLANK  (29-30) 

OUTPUT  BLOCKING 
FACTOR  (31-36) 


ZAT2FO  INPUT/OUTPUT  CARD 


DESCRIPTION 

)  1  f  an  Internal  Value  of  ID  check  (mag  tape  only)  of  the  input 

is  desired,  enter  the  Value  of  ID  (left  justified). 

The  following  describes  the  internal  labels  that  will  be 
created  for  the  output  tape: 

"NLABEL"  or  blank  -  unlabeled 

"ULAHIiL"  -  header  label(s)  only  with  file  mark  after  header 
and  data. 

"ULABEX"  -  header  label(s)  only  with  file  mark  after  data. 

"ULAIITL"  -  header  and  trailer  label(s)  with  file  marks 
following  header  and  preceding  trailer. 

"ULAHTX"  -  header  and  trailer  label(s)  with  no  file  mark 
following  header:  file  mark  preceding  trailer. 

"SLABEL"  -  standard  H6000  labels. 

labels  are  specified,  label  parameter  cards  must  be  provided  (Figure 

The  following  describes  the  mode/parity  of  the  output  tape: 
"BN RY"  or  blank  -  odd  parity 

"ASA9"  -  9-track  mode.  This  should  be  used  for  creating 
9-track  files  in  8-bit  format  (EBCDIC,  ASCII,  etc.) 

"MBCD"  -  even  parity.  Even  parity  on  7-track  output  results 
in  a  hardware  character  transliteration  (Figure  10-10). 


The  following  describes  the  recording  density  of  the  output 
tape : 

"LOW  or  blank  -  site  specified  low  density  (normally  556 
bpi) . 

"HIGH"  -  site  specified  high  density  (normally  800  bpi). 


The  following  describes  the  blocking  factor  of  the  output  tape 

"UNBLOK"  or  blank  -  the  size  of  the  physical  record  to  be 
written  will  be  taken  from  the  Record  Control  Word  (RCW)  of 
the  input  file.  When  this  option  is  used,  the  OUTPUT  RECORD 
LENGTH  field  is  ignored. 

"BLKnnn"  -  where  "nnn"  is  a  right  justified  numeric  integer 
describing  the  number  of  fixed  length  logical  records  to  be 
contained  in  a  physical  record. 


FIGURE:  10-04.  ZAT2FO  Input/Output  Card 
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FIELD  (Col)  DESCRIPTION 

OUTPUT  RECORD  The  following  describes  the  logical  record  length  on  the 

LENGTH  (37-42)  output  tape: 

Blank  -  a  logical  record  length  of  80  characters/by tes  is 
assumed. 

"XLnnnn"  -  where  "nnnn"  is  a  right  justified  numeric  integer. 
This  option  specifies  that  each  logical  record  contains 
"nnnn"  characters/by tes  for  fixed  length  records. 

OUTPUT  TRANSI.IT-  The  following  field  describes  the  various  transliteration 

I!  RAT  I  ON  (43-48)  option  that  may  be  performed  on  the  output  tape: 

"NONEW  -  no  output  transliteration  is  to  be  accomplished. 

Standard  Tables  "H200KK"  or  blank  -  for  use  with  H200  7-track,  odd  parity  tape, 

"EBCDIC"  -  for  use  with  B3S00/B6700  9-track  tape.  Can  be 
used  for  IBM  360  also. 

"ASCI  HI"  -  for  use  with  116000  9 -truck  tape  rocordcd  in  the 
64  character  UASCI  set. 

"BCLIW  -  for  use  with  B3S00/B6700  7-track  tape.  Can  be 
used  for  IBM  360  also. 

Standard  Table  Modi-  "TRANS6"  -  a  6-bit  user  supplied  table. 
flcatlon  or  User 

table  Replacement  "TRANS9"  -  8-bit  user  specified  table  or  standard  table 

modification. 

Note:  Ref  Figure  10-0S  for  a  complete  description  of  the  various  options  available. 


Standard  Tables 


BLANK  (49- S3) 

INPUT/OUTPUT  MULTI¬ 
FILE  INDICATOR  (54) 


-  single  file 


if  the  input/output  is  multi-file 


Note:  This  restricts  the  SSF  input  to  magnetic  tape  and  requires  that  both  input 
and  output  be  contained  on  one  physical  reel. 

BLANK  (SS) 

TAPE  UNIT  (56)  ")6"  if  MTH  400  model  tape  units  are  use. 

"1"  if  MTC  500  or  600  model  tape  units  are  used. 

BLANK  (57-80) 


FIGURE  10-01.  7.AT2FC)  I iiput  /Out put  Curd  fcont) 
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TRANSLITERATION  CARD 


1.  "TRANS6"  in  the  TRANSLITERATION  FIELD  of  the  INPUT/OUTPUT  Card  indicates  that 
only  one  transliteration  card  is  present  for  the  purpose  of  providing  a  complete 
6-bit  transliteration  table. 

FIELD  (Col)  DESCRIPTION 

USER  SPECIFIED  Where  Col  1-64  corresponds  to  the  ascending  octal  values 

(01-64)  00-77.  Col  1  would  contain  the  H6000  character  to  replace 

the  input  octal  value  of  00;  Col  48  would  contain  the  H6000 
character  to  replace  the  input  octal  value  of  60.  This  card 
represents  an  entire  table;  therefore,  all  64  columns  must 
be  used  or  erroneous  results  will  occur. 

2.  "TRANS9"  in  the  TRANSLITERATION  FIELD  of  the  INPUT/OUTPUT  Card  indicates  that 
one  or  more  transliteration  cards  are  present  for  the  purpose  of  modifying  a 
standard  table  or  providing  a  complete  8-bit  transliteration  table. 

a.  To  modify  a  standard  table: 

FIELD  (Col)  DESCRIPTION 

STANDARD  TABLE  Enter  the  name  of  the  standard  table  to  be  modified. 

NAME  (01-06) 

"H200XX" 

"EBCDIC" 

"ASCI  IX" 

"BCLKHH" 

BLANK  (07) 

MODIFIERS  (08-74)  Enter  the  octal  value  of  the  input  character  followed  by  the 

octal  value  of  the  output  character  desired.  All  fields  are 
separated  by  commas  with  no  intervening  blanks.  To  continue 
on  subsequent  cards,  terminate  the  first  card  with  a  comma 
(prior  to  Col  74)  and  continue  on  a  subsequent  card  beginning 
in  Col  1. 

c.R.,  ZAT1FO  Col  1  Col  8 

EBCDIC  3(>() ,20,36]  ,21 

e.g.,  ZAT2FO  Col  1  Col  8 

ASCII  20,360,21,361 

b.  To  introduce  a  user  specified  8-bit  table: 

FIELD  (Col)  DESCRIPTION 

USER  SPECIFIED  Enter  the  octBl  value  of  the  input  character  followed  by  the 

8-BIT  TABLE  (01-74)  octal  value  of  the  output  character  desired.  All  fields  arc 

separated  by  commas  with  no  intervening  blanks.  To  continue 
on  subsequent  cards,  terminate  the  first  card  with  a  comma 
(prior  to  Col  74)  and  continue  on  a  subsequent  card  beginning 
in  Col  1.  This  option  constitutes  an  entire  new  translitera¬ 
tion  table  and  an  octal  character  must  be  provided  for  each 
octal  value  in  the  data  being  processed.  256  entries  must 
be  specified  for  ZAT1F0  while  64  entries  must  be  specified 
for  ZAT2FO. 

e.g. ,  Card  II  Col  1 

0,1, 2, 3, . 76,77, 

Card  #2  100,101,102 . 


FIGURE  10-05.  Transliteration  Card(s) 
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FIELD  (Col) 

USER  LABEL 
INFORMATION 


ZAT2F0  LABEL  CARD 


DESCRIPTION 

If  user  labels  are  specified,  the  user  must  provide  label 
(01-80)  cards.  These  cards  follow  all  other  cards  in  the  input 
deck. 

If  both  header/trailer  labels  are  specified,  a  header/trailer 
set  should  be  provided  for  each  reel/file  of  output  expected. 
If  there  are  more  output  reels/files  than  header/trailer  sets, 
the  last  set  will  be  used  on  all  reels/files  exceeding  the 
number  of  sets  provided.  If  there  are  more  header/trailer 
sets  provided  than  output  reels/files,  the  last  reel/file  will 
contain  the  correct  header;  however,  the  last  trailer  provided 
will  be  used  as  the  final  trailer  label. 

If  only  header  labels  are  specified,  Loader  label  cards 
should  be  provided  in  the  order  to  he  written.  If  the  number 
of  reels/files  exceed  the  number  of  headers  provided,  tho 
last  header  will  be  written  to  all  subsequent  reels/files. 


FIGURE  10-06.  Label  Card 
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6-BIT  TABLES 

116000 

II2IIO  IICTAI. 

MCI.  OCTAL 

nrm~ 

cRATirrc 

00 

00 

00 

0 

01 

01 

01 

1 

02 

02 

02 

2 

03 

03 

03 

3 

04 

04 

04 

4 

05 

05 

05 

5 

06 

06 

06 

6 

07 

07 

07 

7 

10 

10 

10 

8 

11 

11 

11 

9 

57 

12 

12 

t 

75 

13 

13 

1 

15 

14 

14 

8 

20 

IS 

15 

: 

16 

16 

16 

» 

32 

57 

17 

? 

60 

20 

20 

space 

21 

21 

21 

A 

22 

22 

22 

B 

23 

23 

23 

C 

24 

24 

24 

D 

25 

25 

25 

E 

26 

26 

26 

F 

27 

27 

27 

C 

30 

30 

30 

II 

31 

31 

31 

I 

56 

32 

32 

8 

33 

33 

33 

i 

55 

12 

34 

74 

35 

35 

( 

36 

36 

36 

m. 

00 

77 

37 

\ 

52 

40 

40 

A 

41 

41 

41 

J 

42 

42 

42 

K 

43 

43 

43 

L 

44 

44 

44 

M 

45 

45 

45 

N 

46 

46 

46 

0 

47 

47 

47 

P 

SO 

SO 

SO 

Q 

51 

51 

51 

R 

13 

52 

52 

- 

53 

S3 

53 

$ 

54 

54 

54 

* 

76 

55 

55 

) 

56 

56 

56 

• 

40 

57 

57 

» 

36 

60 

60 

♦ 

61 

61 

61 

/ 

62 

62 

62 

s 

63 

63 

63 

T 

64 

64 

64 

U 

65 

65 

65 

V 

66 

66 

66 

w 

67 

67 

67 

X 

FI  CHIRK  10-07.  6-Hit  Tables 
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H6000 


H200  OCTAL 

BCL  OCTAL 

rom - 

- CRaPHTc 

70 

70 

70 

Y 

71 

71 

71 

Z 

14 

72 

72 

_ 

71 

71 

73 

» 

15 

74 

74 

75 

75 

75 

■ 

76 

34 

76 

77 

76 

77 

FIGURE  10-07.  6-Bit  Table*  (cont) 
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EBCDIC  TRANSLITERATION  TABLE 


BBCDIC 

HexaaecliiiT 

00-49 

4A 

4B 

4C 

4D 

4E 

4F 

SO 

Sl-59 

SA 

SB 

5C 

5D 

5E 

5F 

60 

61 

62-6A 

6B 

6C 

6D 

6E 

6F 

70-79 

7A 

7B 

7C 

7D 

7E 

7F 

80-BP 

CO 

Cl 

C2 

C3 

C4 

CR 

C6 

C7 

C8 

C9 

CA-CF 

DO 

D1 

D2 

D3 

D4 

D5 

D6 

D7 

D8 

D9 


Petal 


H6000 

Octal 


Graphic 


00-111 

112 

113 

114 

115 

116 
117 
120 

121-131 

132 

133 

134 

135 

136 

137 

140 

141 

142-152 

153 

154 

155 

156 

157 

160-171 

172 

173 

174 

175 

176 

177 

200-277 

300 

301 

302 

303 

304 

305 

306 

307 

310 

311 

312-317 

320 

321 

322 

323 

324 

325 

326 

327 

330 

331 


20 

12 

33 

36 

33 
60 
20 
32 
20 

34 

53 

54 

55 

56 

72 
52 
61 
20 

73 

74 
72 
16 
17 
20 
IS 

13 

14 

57 

75 

76 
20 
20 
21 
22 

23 

24 

25 

26 
27 

30 

31 
20 

40 

41 

42 

43 

44 

45 

46 

47 

50 

51 


space 

< 

( 

♦ 

space 

« 

speco 


) 


/ 

space 

> 

I 

s 

(7) 

space 

# 


space 

space 

A 

B 

C 

n 

1! 

F 

G 

H 

I 


space 

(alnu 

.1 


K 

L 

M 

N 

O 

P 

Q 

R 


10-15 


(PZ) 


s  zero)* 


FIGURE  10-08.  EBCDIC  Transliteration 'Table 
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nnriiM; 


116000 


lluxadcc  ianl 

Octal 

nnn - 

Graphic 

DA-E1 

332-341 

20 

space 

E2 

342 

62 

S 

B3 

343 

63 

T 

E4 

344 

64 

U 

E5 

34S 

65 

V 

B6 

346 

66 

N 

E7 

347 

67 

X 

lit 

350 

70 

1 

E9 

351 

71 

2 

BA-EF 

352-357 

20 

apace 

F0 

360 

00 

0 

FI 

361 

01 

1 

F2 

362 

02 

2 

F3 

363 

03 

3 

F4 

364 

04 

4 

F5 

365 

05 

5 

F6 

366 

06 

6 

F7 

367 

07 

7 

F8 

370 

10 

8 

F9 

371 

11 

9 

FA-FF 

372-377 

20 

apace 

FIGURE  10-00.  EBCDIC  Transliteration  Tanle  (cont) 
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H6000  UASCI  TRANSLITERATION  TABLE 


H6000  UASCI 


- cmr 

00-20 

00-40 

21 

41 

22 

42 

23 

43 

24 

44 

25 

45 

26 

46 

27 

47 

28 

SO 

29 

SI 

2A 

52 

2B 

53 

2C 

54 

2D 

55 

2E 

56 

2F 

57 

30 

60 

31 

61 

32 

62 

33 

63 

34 

64 

35 

65 

36 

66 

37 

67 

38 

70 

39 

71 

3A 

72 

SB 

73 

3C 

74 

3D 

75 

3l> 

76 

3F 

77 

40 

100 

41 

101 

42 

102 

43 

103 

44 

104 

45 

105 

46 

IOC 

47 

107 

48 

110 

49 

111 

4A 

112 

4B 

113 

4C 

114 

4D 

115 

4E 

116 

4F 

117 

50 

120 

51 

121 

S2 

122 

53 

123 

54 

124 

55 

125 

56 

126 

57 

127 

FI  (ill  HE  10-0‘J. 

116000  UASCI 

H600 

omr - 

20 

77 

76 

13 

53 

74 

32 
57 

35 

ss 

54 

60 

73 

52 

33 
61 
00 
01 
02 
03 
04 
05 
06 
07 
10 
11 

15 
56 

36 

75 

16 
17 

14 
21 
22 

23 

24 

25 

26 
27 

30 

31 

41 

42 

43 

44 

45 

46 

47 

50 

51 
62 

63 

64 

65 

66 


1 iteration  Table 


*P« 

I 

•  • 

I 

$ 

I 

« 

I 

( 

) 


/ 

0 

1 

2 

3 

4 

5 

6 

7 

8 
9 


t 

< 

> 

7 

i 

A 

B 

C 

D 

E 

F 

G 

H 

I 

J 

K 

L 

M 

N 

0 

P 

Q 

R 

S 

T 

U 

V 

w 
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Tape  Value 

IS 
20 
32 
37 
52 
57 
60 
40 


11200  EVEN  PARITY  TAPES 

(Also  IBM  7030) 

Trane lated  Value 

36 

20 

17 

56 

57 
13 
60 
40 


Graphic 

< 

space 

(7) 


•/$  (minus  9) 


s™i.  tkms  s-swas  a1* 

output  value  in  the  TYPE  2  parameter  card. 


> 


<4  to 

4  P 


II CURE  10-  10.  11200  Even  Parity  Tape* 
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PART  SIX  -  B3500  BACKUP  PROCESSING 
SECTION  11.  SYSTEM  SUMMARY 

11.1  System  Application.  The  purpose  of  this  system  is  to  provide  users  with  the 
capability  to  print  R3S00  Printer  Backup  or  punch  B3500  Punch  Backup  Tapes  on  the 

1 1 6  0  0  0  system. 

11.2  System  Operation.  N/A. 

11.3  System  Configuration.  These  programs  were  written  for  use  on  the  116000 
Computer  System  with  tape,  card  reader,  card  punch  and  printer. 

11.4  System  Organisation.  The  system  consists  of  two  (2)  stand-alone  programs. 
ZAK1F0  -  1 10 000  Processing  of  B3500  Print  Backup  Tapes  and  ZAK3FO  -  116000  Process¬ 
ing  of  B3S00  Punch  Backup  Tapes. 


11.5 

Performance.  N/A. 

11.6 

Data  Base.  N/A. 

11.7 

General  Descriptions  of  Inputs 

,  Processing,  Outputs 

11.7. 

1  ZAK1F0: 

a.  Inputs  for  ZAK1F0  will  he  parameter  card  (ref  figure  15-01)  and  a  B3500 
Printer  Backup  l  ape  that  will  he  considered  to  have  the  following  characteristics: 

-BLOCKED  OR  UNBLOCKED 
-STANDARD  LABELS 
-9TRACK 
1IICII  DENSITY 

-  FIXED  RECORD  LENGTH  OF  136  EBCDIC  CHARACTERS 


b.  Out p ut  will  be  a  listing  that  is 
following  exceptions: 

B3500  Print  Clin  met  e  r 

if  (cent  s  i  gn  ) 

(  b  a  r  I 

It  i I de  1 

!  (  e>  c  I  uniat  i  on  ma rk  ) 

?  (question  mark) 

11.7.2  ZAK5I-0 : 

a.  Input  for  ZAK.3FO  is  a  B3500 


identical  to  B3500  listings  with  the 

1  (0 00 0  Print  Ch  a  met  e  r 
(backward  slash) 

(backwaro  slash) 

(  t  i  1 dc) 

116000  is  unable  to  process 
these  characters  (results 
unpred i ct ah le) 

Punch  Backup  Tape  which  must  be: 


-  BLOCKED- 1  or  BLOCKED- 6 
-STANDARD  LABELS 
-9 -TRACK 

-FIXED  RECORD  LENGTH  OF  136  EBCDIC  CHARACTERS 

b.  Output  will  be  a  punched  card  deck  which  is  identical  to  the  output  of 
the  B35DO. 
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SUCTION  12  -  STAFF  FUNCTIONS  RELATED  TO  TECHNICAL  OPERATIONS 

1 2 . 1  2AK1FO  -  Processing  of  B3500  Print  Backup  I  apes : 

12.1.1  Initiation  Procedures.  To  initiate  execution  of  ZAKJFO  the  user  may 
execute  Job  Control  Language  (  JCL)  ref  paragraph  12.1.2.4. 

12.1.1.1  Program  Notes.  Program  ZAKII'O  reads  a  113500  print  backup  tape,  trail, 
latcs  the  F.BCDIC  characters  into  116000  characters  and  prints  output  listings 
identical  to  those  produced  on  the  113500.  The  use  of  a  parameter  card  and/or  $ 
control  card(s)  allows  the  user  the  following  options: 

a.  Print  an  entire  tape  or  selectively  print  any  individual  file  on  t  lie 

tape . 

b.  If  a  multi -reel  report  is  to  he  printed  a  separate  run  is  required  foi 
each  reel  of  tape. 

c.  Restart  option  to  resume  printing  if  the  job  is  stopped  or  i n t e r i upt e u . 
When  I  lie  Restart  option  is  used,  printing  starts  with  the  lile  and  page  specilied 
and  prints  the  remainder  of  the  file  plus  any  files  that  iollow  on  the  input  tape 

d.  User  can  specify  part  paper  desired: 

(1)  With  a  $  RliPORT  control  card  if  output  print  is  assigned  to  SYSOUT 
with  a  $  SYSOUT  control  card. 

(2)  By  using  fields  5  and  6  of  the  parameter  card  (ref  paragraph  12.1.’ 
and  a  $  PRINT  control  card  (Not  recommended  on  pro  6.0  116000  GCOS  system  release 
because  the  report  may  not  be  formatted  correctly.) 

e.  Special  carriage  tape  is  not  required. 

12.1  . J 2  Re  (  ej  en  ces  : 

a.  llbOOO  Reference  Manual  BS19. 

b.  1 1 6 000  B  R  3  8 . 

c.  116000  C.COS  BR4  3 . 

d.  AFM  171-110,  Volume  1  1  . 

c.  Burroughs  B 2 5 0 0 / 3 500  COBOL  Reference  Manual  (appendix  C)  . 

*12.1.2  Staff  Input  Requirements.  Input  is  a  B3500  Printer  Backup  Tape  that  is 
cons  id crcd  to  be  : 

-  UNBLOCKLI) 

-STANDARD  LABl'.LS 
-9TRACK 
HIGH  DENSITY 

FIXED  RECORD  LENGTH  Of  136  F.BCDIC  CHARACTERS 
-CREATED  WITH  THE  "PB IB"  OPTION  Oil 

-MUST  BE  MCPV  GENERATED  AND  NOT  SPOOLED  OFF  OF  DISK  BACKUP 
1 1.2.  1  Input  Formats  : 


12  2 


AIM  171-004 
Vo  1  nine  I  I 


1  .In  1  \  1080 


FIELD 

CARD  COL 

CONTENTS 

PCN 

1-18 

PCNSS891K110000000 

1 

19-25 

PRINT00  or  RESTART 
(see  Note  1) 

2 

27-32 

ALI.000  or  FILE- ID 
(see  Note  2) 

7 

34-37 

BLANK  or  PACE 
(see  Note  3) 

4 

39-42 

BLANK  or  1NTEC.ER-1 
(see  Note  4) 

5 

44-47 

BLANK  or  PART 
(see  Note  5) 

6 

49 

BLANK  or  INTEGER- 2 
(see  Note  6) 

7 

50-80 

BLANK 

Note  1.  0=blank.  PRINTS  will  be  used  in  all  instances  except  when  restarting  a 
job  that  has  been  interrupted.  Then  RESTART  option  will  be  used. 

Note  2.  Use  ALL000  to  print  an  entire  tape.  Use  the  six  (6)  digit  B3500  Pile- ID 
to  specify  the  file  in  which  printing  is  to  be  restarted  when  using  the  RESTART 
opt  ion . 

Note  .1.  heave  blank  except  when  using  the  It)  MART  opt  ion.  lor  restarting.,  innu.li 
the  word  PAGE  in  this  field. 

Note  4.  Leave  blank  except  when  using  the  RESTART  option.  For  restarting, 
Integer-1  will  be  a  4-digit  right  justified  page  number  that  you  wish  to  be  the 
first  page  printed  on  the  restart.  If  you  wish  to  resume  printing  with  page  89, 
this  field  will  be  0089.  Integer-1  must  be  greater  than  0001. 

Note  5.  Leave  blank  except  to  specify  that  multiple  part  paper  is  desired.  To 
use  this  option,  punch  the  word  F'ART  in  this  field.  this  option  is  ignored  when 
printer  file  is  assigned  to  SYSOUT. 


■> 


I 


Note  6.  Leave  blank  except  when  using  Field  5  above  to  specify  multiple  part 
paper.  The  desired  part  paper  is  punched  in  this  field  ( i . e .  .  2,7,4,  etc.) 

Note  7.  Only  one  parameter  card  may  be  used  per  activity. 

12.1.2.2  Composition  Rules.  N/A. 

I nput  Vocah u 1  a  ry  .  N / A . 


.1.2.7 


12.1,2.4  Sample  Inputs.  A  sample  job  stream  to  print  all  printer  backup  files  on 


the  tape 
assigned 


and  using 
to  SYSOUT, 


REPORT  control  card  to  specify  part  paper  desired  with  output 


1 

Col  8  Col 

16 

$ 

IDF.NT 

(User  Specified) 

$ 

USERID 

(User  Specified) 

$ 

LIBRARY 

LA 

$ 

USE 

ZAK1F0 

$ 

ENTRY 

C.ZAK1 

$ 

EXECUTE 

$ 

LIMITS 

20.20K 

$ 

TAPE9 

LA.X0D, ,  nnnnn , .USER- L 1 BRARY 

$ 

TAPL9 

FA,  X  ID,  ,99999,  ,  B  .3  500  -  PR  I NTER 

$ 

REPORT 

63 , PR , 3PARTPAPER (see  note  1) 

S 

SYSOUT 

PI 

PCNSS891K 1 10000000PRINT000ALL000 
$  ENDJOB 


"V  •  Vi;** 


- - - - -  v^... 


iJ 
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Note  1.  Omit  $  REPORT  control  card  if  special  printer  paper  is  not  desired. 
12.1.3  Output  Requirements.  Output  will  be  a  B3500  listing. 

12.1.3.1  Output  Formats.  N/A. 

12.1.3.2  Sample  Outputs.  N/A. 

12.1.3.3  Output  Vocabulary.  N/A. 

12.1.4  Utilization  of  System  Output.  N/A. 

12.1.5  Recovery  and  Error  Correction  Procedures.  N/A. 


12.2  ZAK3FO  -  Processing  of  B3500  Punch  Backup  Tapes: 

12.2.1  Initiation  Procedures.  To  initiate  execution  of  ZAK3FO  the  user  may 
execute  Job  Control  Language  (JCL)  ref.  paragraph  12.2.2.4. 

*  12.2.1.1  Program  Notes .  Program  ZAK3FO  is  designed  to  read  punch  backup  tapes 
from  the  B35O0  and  output  punch  card  decks  identical  to  the  B3500  output.  The 
punch  is  dedicated  to  the  program  during  execution.  Figure  12-01  contains  transla¬ 
tion  tables  which  provide  a  cross  reference  between  graphics,  B3500  internal  code, 
H6000  octal  code  and  H6000  card  codes.  Extreme  care  should  be  taken  to  assign  the 
correct  File  code  to  coincide  with  the  blocking  Factor  of  the  input  punch  tape  (see 
para  12.2.2.4).  Failure  to  assign  propoer  File  code  will  result  in  unpredictable 
output . 


12.2.1.2  References: 


a.  H6000  Reference  Manual  BS19. 

b.  H6000  BR38 . 

C.  H6000  GCOS  BR43 . 

d.  AFM  171-110  Volume  II. 

e.  BURROUGHS  B2500/3500COBOL  Reference  Manual  (appendix  C) . 

*  12.2.2  Staff  Input  Requirements.  Parameter  cards  are  not  required.  Reference 
AFM  171-604  Vol  II  para  ll.7.2a  for  restrictions  on  the  input  tape. 


12.2.2.1  Input  Formats.  N/A. 

12.2.2.2  Composition  Rules.  N/A. 

12.2.2.3  Input  Vocabulary.  N/A. 

*  12,2.2.4  Sample  Inputs.  A  sample  job  stream  to  punch  a  card  deck  from  a  B3500 
Punch  Backup  Tape: 


Col  1 


Col  8 


Col  16 


IDENT 

USERID 

LIBRARY 

USE 

ENTRY 

EXECUTE 

LIMITS 

TAPE  9 

TAPE9 

TAPE9 

PUNCH 

ENDJOB 


(User  Specified) 

(User  Specified) 

LA 

ZAK3F0 

ZAK3F0 

,4K 

LA . X00 , nnnnn ,  .USER- LIBRARY 
FI  ,XlD,,nnnnn,,B3500-BLOCKED-l- 
BACKUP- PUNCH -TAPE  (OPTIONAL) 
F6,X1D, nnnnn,  B3500-Block-6- 
BACKUP-PUNCH-TAPE  (OPTIONAL) 

CL 


b.  One  of  the  two(2)  optional  files  FI  or  F6  is  required  in  the  above  JCL. 

12.2,3  Output  Reguireiaents  ■  Output  will  be  a  punch  card  deck,  identical  to  the 
b35oD  output.  — — 

12.2.3.1  Output  Formats,  N/A, 

12.2.3.2  Sample  Outputs.  N/A, 

12.2.3.3  Output  Vocabulary.  N/A. 

12.2.4  Utilization  of  Systea  Outputs.  N/A. 

12.2.5  Recovery  and  Error  Correction  Procedures.  N/A. 


■  n  in-  ~ 
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TRANSLATION 

TABLE 

B3500 

B3500  8-Bit 

H6000 

H6000 

Graphic 

Internal 

Octal 

Card  Code 

NULL 

00 

5403 

12-0-1-8-9 

SOH 

01 

4401 

12-1-9 

STX 

02 

4201 

12-2-9 

ETX 

03 

4101 

12-3-9 

04 

4041 

12-4-9 

HT 

05 

4021 

12-5-9 

06 

4011 

12-6-9 

DEL 

07 

4005 

12-7-9 

08 

4003 

12-8-9 

09 

4403 

12-1-8-9 

OA 

4203 

12-2-8-9 

VT 

OB 

4103 

12-3-8-9 

FF 

OC 

4043 

12-4-8-9 

CR 

OD 

4023 

12-5-8-9 

SO 

OE 

4013 

12-6-8-9 

SI 

OF 

4007 

12-7-8-9 

DLE 

10 

6403 

12-11-1-8-9 

DC! 

11 

2401 

11-1-9 

DC2 

12 

2201 

11-2-9 

DC  3 

13 

2101 

11-3-9 

14 

2041 

11-4-9 

NL 

IS 

2021 

11-5-9 

BS 

16 

2011 

11-6-9 

17 

2005 

11-7-9 

CAN 

18 

2003 

11-8-9 

EM 

19 

2403 

11-1-8-9 

1A 

2203 

11-2-8-9 

IB 

2103 

11-3-8-9 

FS 

1C 

2043 

11-4-8-9 

GS 

ID 

2023 

11-5-8-9 

RS 

IE 

2013 

11-6-8-9 

US 

IF 

2007 

11-7-8-9 

20 

3403 

11-0-1-8-9 

21 

1401 

0-1-9 

22 

1201 

0-2-9 

23 

1101 

0-3-9 

24 

1041 

0-4-9 

LF 

25 

1021 

0-5-9 

ETB 

26 

1011 

0-6-9 

ESC 

27 

1005 

0-7-9 

28 

1003 

0-8-9 

29 

1403 

0- 1-8-9 

2A 

1203 

0- 2-8-9 

2B 

1103 

0-3-8-9 

2C 

1043 

0-4-8-9 

ENQ 

2D 

1023 

0- 5-8-9 

ACK 

2E 

1013 

0-6-8-9 

BEL 

2F 

1007 

0-7-8-9 

30 

7403 

12-11-0-1-8-9 

31 

0401 

1-9 

SYN 

32 

0201 

2-9 

33 

0101 

3-9 

34 

0041 

4-9 

FIGURE  12-01.  Translation  Table 
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B3500 

B3500  8-Bit 

H6000 

H6000 

Graphic 

Internal 

Octal 

Card  Code 

35 

0021 

5-9 

36 

0011 

6-9 

EOT 

37 

0005 

7-9 

38 

0003 

8-9 

39 

0403 

1-8-9 

3A 

0203 

2-8-9 

3B 

0103 

3-8-9 

DC  4 

3C 

0043 

4-8-9 

NAK 

3D 

0023 

5-8-9 

3E 

0013 

6-8-9 

SUB 

3F 

0007 

7-8-9 

SPACE 

40 

41 

0000 

5401 

12-0-1-9 

42 

5201 

12-0-2-9 

43 

5101 

12-0-3-9 

44 

5041 

12-0-4-9 

45 

5021 

12-0-5-9 

46 

5011 

12-0-6-9 

47 

5005 

12-0-7-9 

48 

5003 

12-0-8-9 

49 

4402 

12-1-8 

[ 

4A 

4202 

12-2-8 

4B 

4102 

12-3-8 

* 

4C 

4042 

12-4-8 

( 

+ 

4D 

4022 

12-5-8 

4E 

4012 

12-6-8 

i 

4F 

4006 

12-7-8 

i 

c 

50 

4000 

12 

Q 

51 

6401 

12-11-1-9 

52 

6201 

12-11-2-9 

53 

6101 

12-11-3-9 

54 

6041 

12-11-4-9 

55 

6021 

12-11-5-9 

56 

6011 

12-11-6-9 

57 

6005 

12-11-7-9 

58 

6003 

12-11-8-9 

59 

2402 

11-1-8 

r 

5A 

2202 

11-2-8 

[ 

5B 

2102 

11-3-8 

♦ 

A 

5C 

2042 

11-4-8 

) 

5D 

2202 

11-5-8 

5E 

2012 

11-6-8 

> 

5F 

2006 

11-7-8 

60 

2000 

11 

/ 

61 

1400 

0-1 

62 

3201 

11-0-2-9 

63 

3101 

11-0-3-9 

64 

3041 

11-0-4-9 

65 

3021 

11-0-5-9 

66 

3011 

11-0-6-9 

67 

3005 

11-0-7-9 

68 

3003 

11-0-8-9 

69 

1402 

0-1-8 

6A 

6000 

12-11 

6B 

1102 

0-3-8 

» 

\ 

6C 

1042 

0-4-8 

6D 

1022 

0-5-8 

— 

6E 

1012 

0-6-8 

FIGURB  12-01.  Translation  Table  (cont) 
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B3500 

B3S00  8-Bit 

H6000 

H6000 

Graph  ic 

Inte  rnal 

Octal 

Card  Code 

7 

6F 

1006 

0-7-8 

70 

7000 

12-11-0 

71 

7401 

12-11-0-1-9 

72 

7201 

12-11-0-2-9 

73 

7101 

12-11-0-3-9 

74 

7041 

12-11-0-4-9 

75 

7021 

12-11-0-5-9 

76 

7011 

12-11-0-6-9 

77 

7005 

12-11-0-7-9 

78 

7003 

12-11-0-8-9 

79 

0402 

1-8 

. 

7A 

0202 

2-8 

# 

7B 

0102 

3-8 

@ 

7C 

0042 

4-8 

» 

7D 

0022 

5-8 

3 

7E 

0012 

6-8 

II 

7F 

0006 

7-8 

80 

5402 

12-0-1-8 

a 

81 

5400 

12-0-1 

b 

82 

5200 

12-0-2 

c 

83 

5100 

12-0-3 

d 

84 

5040 

12-0-4 

e 

85 

5020 

12-0-5 

f 

86 

5010 

12-0-6 

n 

87 

5004 

12-0-7 

b 

h 

88 

5002 

12-0-8 

i 

89 

5001 

12-0-9 

8A 

5202 

12-0-2-8 

8B 

5102 

12-0-3-8 

8C 

5042 

12-0-4-8 

8D 

5022 

12-0-5-8 

RE 

5012 

12-0-6-8 

8F 

5005 

12-0-7-8 

90 

6402 

12-11-1-8 

i 

91 

6400 

12-11-1 

j 

k 

92 

6200 

12-11-2 

1 

93 

6100 

12-11-3 

m 

94 

6040 

12-11-4 

n 

95 

6020 

12-11-5 

0 

96 

6010 

12-11-6 

n 

97 

6004 

12-11-7 

r 

Q 

98 

6002 

12-11-8 

H 

r 

99 

6001 

12-11-9 

9A 

6202 

12-11-8-2 

9B 

6102 

12-11-8-3 

9C 

6042 

12-11-8-4 

9D 

6022 

12-11-8-5 

9E 

6012 

12-11-8-6 

9F 

6006 

12-11-8-7 

AfJ 

3402 

11-0-8-1 

A1 

3400 

11-0-1 

s 

A2 

3200 

11-0-2 

t 

A3 

3100 

11-0-3 

u 

A4 

3040 

11-0-4 

V 

A5 

3020 

11-0-5 

w 

A6 

3010 

11-0-6 

X 

A7 

3004 

11-0-7 

FIGURE  12-01.  Translation  Table  (cont) 
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B3S00 

Graphic 

y 

z 


C)pz 

A 

B 

C 

D 

E 

F 

G 

H 

I 


(  !  )MZ 
J 
K 
L 
M 
N 
0 
P 

Q 

R 


B3500  8-Bit 
Internal 


A8 

A9 

AA 

AB 

AC 

AD 

AE 

AF 

B0 

B1 

B2 

B3 

B4 

B5 

B6 

B7 

B8 

B9 

BA 

BB 

BC 

BD 

BE 

BF 

C0 

Cl 

C2 

C3 

C4 

C5 

C6 

C7 

C8 

C9 

CA 

CB 

CC 

CD 

CE 

CF 

D0 

D1 

D2 

D3 

D4 

D5 

D6 

D7 

D8 

D9 

DA 

DB 

DC 

DD 

DE 

DF 

E0 

El 


H6000 

H6000 

Octal 

Card  Code 

3002 

11-0-8 

3001 

11-0-9 

3202 

11-0-2-8 

3102 

11-0-3-8 

3042 

11-0-4-8 

3022 

11-0-5-8 

3012 

11-0-6-8 

3006 

11-0-7-8 

7402 

12-11-0-1-8 

7400 

12-11-0-1 

7200 

12-11-0-2 

7100 

12-11-0-3 

7040 

12-11-0-4 

7020 

12-11-0-5 

7010 

12-11-0-6 

7004 

12-11-0-7 

7002 

12-11-0-8 

7001 

12-11-0-9 

7202 

12-11-0-2-8 

7102 

12-11-0-3-8 

7042 

12-11-0-4-8 

7022 

12-11-0-5-8 

7012 

12-11-0-6-8 

7006 

12-11-0-7-8 

5000 

12-0 

4400 

12-1 

4200 

12-2 

4100 

12-3 

4040 

12-4 

4020 

12-5 

4010 

12-6 

4004 

12-7 

4002 

12-8 

4001 

12-9 

5203 

12-0-2-8-9 

5103 

12-0-3-8-9 

5043 

12-0-4-8-9 

5023 

12-0-5-8-9 

5013 

12-0-6-8-9 

5007 

12-0-7-8-9 

3000 

11-0 

2400 

11-1 

2200 

11-2 

2100 

11-3 

2040 

11-4 

2020 

11-5 

2010 

11-6 

2004 

11-7 

2002 

11-8 

2001 

11-9 

6203 

12-11-2-8-9 

6103 

12-11-3-8-9 

6043 

12-11-4-8-9 

6023 

12-11-5-8-9 

6013 

12-11-6-8-9 

6007 

12-11-7-8-9 

1202 

0-2-8 

3401 

11-0-1-9 

FIGURE  12-01  Translation  Table  (cont) 
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B3500 

B3500  8-Bit 

H6000 

H6000 

Graphic 

Internal 

Octal 

Card  Code 

S 

E2 

1200 

0-2 

T 

E3 

1100 

0-3 

U 

E4 

1040 

0-4 

V 

ES 

1020 

0-5 

W 

E6 

1010 

0-6 

X 

E7 

1004 

0-7 

Y 

E8 

1002 

0-8 

Z 

E9 

1001 

0-9 

EA 

3203 

11-0-2-8-9 

EB 

3103 

11-0-3-8-9 

EC 

3043 

11-0-4-8-9 

ED 

3023 

11-0-5-8-9 

EE 

3013 

11-0-6-8-9 

EF 

3007 

11-0-7-8-9 

0 

F0 

1000 

0 

1 

FI 

0400 

1 

2 

F2 

0200 

2 

3 

F3 

0100 

3 

4 

F4 

0040 

4 

5 

F5 

0020 

5 

6 

F6 

0010 

6 

7 

F7 

0004 

7 

8 

F8 

0002 

8 

9 

F9 

0001 

9 

FA 

7203 

12-11-0-2-8-9 

FB 

7103 

12-11-0-3-8-9 

FC 

7043 

12-11-0-4-8-9 

FD 

7023 

12-11-0-5-8-9 

FE 

7013 

12-11-0-6-8-9 

FF 

7007 

12-11-0-7-8-9 

FIGURE  12-01.  Translation  Table  (cont) 
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PART  SEVF.N  -  TEST  FILE  GENERATOR  PROGRAMS 
SECTION  13.  SYSTEM  SUMMARY 

13.1  System  Application.  The  purpose  of  the  test  file  generator  utility  is  to 
enable  programmers  to  create  test  data  files  for  subsequent  use  as  input  to  a 
designated  program.  Program  development  often  requires  that  test  data  files  be 
created  for  adequate  validation.  This  utility  enables  data  bases  to  be  created 
for  this  purpose.  Input  is  accepted  from  cards,  disk  or  tape  and  placed  on  disk 
or  tape  in  standard  system  format.  The  size  of  the  input  and  output  is  designated 
via  a  control  card. 

13.2  System  Operation,  n/ A. 

13.3  System  Configuration.  The  test  file  generator  program  was  written  for  use  on 
the  H6000  computer  system  with  tape  and  disk  I/O  devices. 

13.4  System  Organization.  The  test  file  generator  utility  consists  of  two  (2) 
stand-alone  programs  (ZAC0FO  and  ZAD0FO) . 

13.4.1  ZAC0FO  -  Test  File  Generator  From  Cards.  ZAC0FO  uses  punched  cards  as 
input  to  produce  a  SSF  output  file. 

13.4.2  ZAD0FO  -  Test  File  Generator  From  Tape/Disk.  ZAD0FO  uses  tape  or  disk  as 
input  to  produce  a  SSF  output  file. 

13.5  Performance.  N/A. 

13.6  Data  Base.  The  test  file  generator  programs  support  card  (ZAC0FO)  and  tape 
or  disk  (ZAD0FO)  data  files  that  are  in  SSF. 

13.7  General  Description  of  Inputs,  Processing,  and  Outputs: 

13.7.1  Inputs,  a  control  card  followed  by  either  punched  cards  or  any  standard 
system  formatted  disk  or  tape  file  in  which  the  user  desires  to  change  the  number 
of  characters  per  record. 

13.7.2  Processing.  The  test  file  generator  programs  provide  the  capability  to 
process  input  that  consists  of  a  specified  number  of  characters  per  record  and 
create  an  output  file  containing  a  different  number  of  characters  per  record.  The 
change  in  record  size  is  supplied  to  the  program  by  a  control  card. 

13.7.3  Output,  a  disk  or  tape  file  in  SSF  with  an  adjusted  number  of  characters 
per  record. 
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SECTION  14.  STAFF  FUNCTIONS  RELATED  TO  TECHNICAL  OPERATIONS 

14.1  ZACIFO  -  Test  File  Generator  From  Cards.  The  function  of  this  program  is  to 
create  a  data  file  on  disk  or  tape  from  punched  cards. 

14.1.1  Initiation  Procedures: 

14.1.1.1  Proaram  Notes: 

a.  Only  one  file  may  be  created  each  time  the  program  is  executed. 

b.  Library  tape  LA  is  in  sequential  R*  format. 

14.1.1.2  References.  H6000  Control  Card  Manual,  BS19. 

14.1.2  Staff  Input  Requirements.  Input  consists  of  a  control  card  followed  by 
cprd  data.  User  requirements  will  determine  frequency  of  processing. 

14.1.2.1  Input  Formats: 

a.  PCN  Card: 


Column 

T-n 

Contents 

PCH5PI9Tc#l 

Purpose 

Declc  Identifier 

12-81 

Blank 

Control  Card: 

Column 

“I - 

Contents 
- 1 - 

Purpose 

Card  Identifier 

2-6 

xxxxx 

Niaiber  of  input  characters  per 
logical  record. 

7-12 

xxxxxx 

Number  of  output  characters  per 
logical  record. 

13-14 

XX 

File  code  of  output  file  (FI). 

IS-  8# 

Blank 

Data.  No  specific 

format  required  on  the  punched  cards. 

14.1.2.2  Composition  Rules: 
a.  Control  Card: 

(1)  An  asterisk  is  required  in  cc  one  of  the  control  card. 

(2)  The  size  of  the  input  record  must  range  between  1  and  19|8  characters. 

(3)  If  the  input  character  count  is  omitted  from  the  control  card,  the 
default  will  be  SI  characters. 

(4)  The  size  of  the  output  records  must  range  between  1  and  19|S  characters. 

(5)  If  the  output  character  count  is  omitted  from  the  control  card,  the 
default  will  be  S4  characters. 
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(6)  If  the  input  size  is  less  than  the  output  size,  the  difference  will 
be  padded  with  zeros.  For  example,  if  only  40  characters  of  the  80  on  a  data  card 
were  desired  for  the  output  file  and  the  output  size  was  84,  character  positions 
41  through  84  would  contain  zeros.  The  control  card  format  for  this  example  would 
be  *000400000 84F1 . 


(7)  If  output  size  is  less  than  input  size  and  not  a  multiple  of  a  6 
(word  size),  the  remainder  of  the  last  partially  filled  word  will  be  padded  with 
zeros.  For  instance,  if  input  size  is  80  and  output  size  is  56  characters,  a 
record  of  60  characters  would  be  written  to  the  output  file  with  the  last  four 
characters  containing  zeros.  Positions  1-56  would  be  used  from  the  input  record. 

(8)  The  file  code  on  the  control  card  must  match  the  file  code  on  the 
appropriate  JCL  card  (FI). 

14.1.2.3  Input  Vocabulary.  N/A. 

14.1.2.4  Sample  Inputs.  To  create  SSF  disk  or  tape  data  files,  the  user  may 
execute  the  following  JCL: 


1  Col 

8 

Col  16 

$ 

1  DENT 

(USER  SPECIFIED) 

$ 

USERID 

(USER  SPECIFIED) 

$ 

LIBRARY 

LA 

$ 

USE 

ZAC0FO 

$ 

ENTRY 

ZAC0FO 

$ 

EXECUTE 

$ 

LIMITS 

,4K 

$ 

TAPE9 

LA,X1D, ,nnnnn, , USER- LIB 

$ 

PRMFL 

FI, W,S, USERID/FILE  NAME 

$ 

DATA 

I* 

PCNSP891C0 1 

*00080000084F1 

(CARD  DATA) 

$ 

ENDJOB 

14.1,3  Output  Requirements.  Output  will  be  a  SSF  file  containing  the  number  of 
characters  per  record  that  were  specified  on  the  control  card. 

14.1.3.1  Output  Formats.  System  Standard  Format. 

14.1.3.2  Sample  Outputs.  N/A. 

14.1.3.3  Output  Vocabulary.  N/A. 

14.1.4  Utilization  of  System  Outputs.  User  determined. 

14.1.5  Recovery  and  Error  Correction  Procedures.  N/A. 

14.2  ZAD0FO  -  Test  File  Generator  From  Tape/Disk.  The  function  of  this  program 
Is  to  create  a  data  file  on  disk  or  tape  from  disk  or  tape  input. 

14.2.1  Initiation  Procedures.  To  create  disk  or  tape  data. 

14.2.1.1  Program  Notes: 
a . 


* 


b. 


Only  one  file  may  be  created  each  time  the  program  is  executed. 
Library  tape  LA  is  in  sequential  R*  format. 
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1 4 .  2  ,  1 . 1  Ke£c  renc.es: 

a.  H6U00  Control  Card  Manual,  BS19. 

b.  H6000  File  ana  Record  Control  Manual,  DD07. 

14.2.2  .Stall  Input  Require.m  nts .  Input  consists  of  a  control  card  and  data  on 
lisle  dr  tape.  User  requirements  will  determine  frequency  of  processing. 

14.2.2.1  Input  Formats: 

a.  PCN  Card: 


Column 

l-Tl 


Contents 


Purpose 

Deck  Identifier 


Control  Card. 


Blank 


tolumn 


Contents 


Purpose 


lentifier 


13-14 


15-80 


XXXXX 


XXXXXX 


Blank 


Number  of  input  characters  per 
logical  record. 

Number  of  output  characters  per 
logical  record. 

File  code  of  output  file  (FI). 


c.  Data.  Standard  system  format  is  required. 

14.2.2.2  Composition  Rules: 
a.  Control  Card: 

(1)  An  asterisk  is  required  in  column  one  of  the  control  card. 

(2)  The  size  of  the  input  record  must  range  between  1  and  1908  characters. 

(3)  If  the  input  character  count  is  omitted  from  the  control  card,  the 
default  will  be  80  characters. 


(4)  The  size  of  the  output  records  must  range  between  1  and  1908  characters. 

(5)  If  the  output  character  count  is  omitted  from  the  control  card,  the 
default  will  be  84  characters. 

(6)  If  the  input  size  is  less  than  the  output  size,  the  difference  will 
be  padded  with  zeros.  For  example,  if  only  40  characters  of  the  80  on  a  data  card 
were  desired  for  the  output  file  and  the  output  size  was  84,  character  positions  41 
through  84  would  contain  zeros.  The  control  card  format  for  this  example  would  be 

*000400000  84F1 . 


(7)  If  output  size  is  less  than  input  size  and  not  a  multiple  of  6  (word 
size),  the  remainder  of  the  last  partially  filled  word  will  be  padded  with  zeros. 
For  instance,  if  input  size  is  80  and  output  size  is  56  characters,  a  record  of 
60  characters  would  be  written  to  the  output  file  with  the  last  four  characters 
containing  zeros.  Positions  1  56  would  be  used  from  the  input  record. 

(8)  The  file  code  on  the  control  card  must  match  the  file  code  on  the 
appropriate  JCL  card  (FI). 
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14.2.2.3  Input  Vocabulary.  N/A. 

14.2.2.4  Sample  Inputs.  To  create  a  SSF  file  with  40  character  record  input  and 

84  character  output: 

Col  1  Col  8  Col  16 

$  IDENT  (USER  SPECIFIED) 

$  USERID  (USER  SPECIFIED) 

$  LIBRARY  LA 

$  USE  ZAD0FO 

$  ENTRY  ZAD0FO 

$  EXECUTE 

i  LIMITS  ,4K 

i  TAPE9  LA, X0D,,nnnnn, .USER-LIB 

$  TAPE9  F2.X2D, .nnnnn,, TEST-DATA- INPUT 

$  TAPE9  FI, X1D,  ,99999, .ZAD0FO-OUTPUT 

$  DATA  I* 

PCNSP891D01 
•00040000084F1 
$  ENDJOB 

14,2.3  Output  Requirements.  Output  will  be  a  SSF  file  containing  the  number  of 

characters  per  record  that  were  specified  on  the  control  card. 

14.2.3.1  Output  Formats.  N/A. 

14.2.3.2  Sample  Outputs.  N/A. 

14.2.3.3  Output  Vocabulary.  N/A. 

14.2.4  Utilization  of  System  Outputs.  User  determined. 

14.2.5  Recovery  and  Error  Correction  Procedures.  N/A. 
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PART  FIGHT  -  COMMAND  IDENTIFIER  SUBROUTINE 
SECTION  IS.  SYSTEM  SUMMARY 


1S.1  System  Application.  The  purpose  of  this  subroutine  is 
necessity  of  changing  many  standard  programs  if  the  location 
in  the  $IDENT  control  card  is  changed.  It  moves  the  command 
prefix  area  to  a  user  work  area  for  output  label  processing, 
file-ID  modification,  or  other  uses  required. 


to  eliminate  the 
of  the  command  code 
code  from  the  slave 
file  control  table 


IS. 2  System  Operation,  n/a. 

11  3  System  Configuration.  The  Command  Identifier  Subroutine  was  written  for 
I16C00  computer  systems  with  tape  and  disk  I/O  devices. 


15. 4  System  Organization.  The  Command  Identifier  is  a  GMAP  coded  subroutine 
\2AP7fO)  that  is  called  by  a  user  program. 

’-S.'.l  2AP7FO  -  Command  Identifier  Subroutine .  ZAP7F0  moves  the  command  code 
ficm  the  SIDENT  control  card  image  within  the  slave  prefix  area  to  an  area  speci¬ 
fic!  b)  the  calling  program. 

15.5  Performance.  N/A. 


15.6  Data  Base.  N/A. 

15. 7  General  Description  of  Inputs,  Processing,  Outputs : 

1 5.7.1  Input .  N/A. 

15.7.2  Processing.  The  Command  Identifier  Subroutine  provides  sites,  who  support 
uther  commands,  the  ability  to  differentiate  between  command  data  without  changing 
standard  programs  when  the  command  code  in  the  JIDENT  is  relocated. 
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(2)  Example  2  -  GMAP. 
$GMAP 

LI  BCI  1, 

CALL  ZAP7FO  (LI) 
LDA  LI 

STA  CMD- ID 

END 


16.1.1.2 

References : 

a. 

H6000  General  Loader  Manual,  DD10. 

b. 

H6000  COBOL  Reference  Manual,  BS08. 

c . 

H6000  GMAP  Manual,  DP08. 

d. 

H6000  Control  Card  Reference  Manual,  DD31 

16.1.2 

Staff  Input  Requirements.  \/A. 

16.1.2.1 

Input  Formats,  N/A. 

16.1.2.2 

Composition  Rules.  N/A. 

16.1.2.3 

Input  Vocabulary.  n/a 

16.1.2.4 

Sample  Inputs: 

a . 

The 

following  job  control 

statements 

are  required  when  using 

the  object 

library: 

Col 

1 

Col  8 

Col  16 

$ 

I  DENT 

$ 

USERID 

$ 

EXECUTE 

$ 

PRMFL 

*L,R, 

R, CAT/FILE  with  7AP7FO 

b. 

The 

following  job  control 

statements 

are  required  when  using 

a  JLIBRARY 

control 

card : 

Col 

1 

Col  8 

Col  16 

$ 

IDENT 

J 

USERID 

$ 

LIBRARY 

LB  - 

See  control  cards  reference  manual 

for  format  and  placement 


$ 

i 


EXECUTE 

PRMFL 


LB, R,R, CAT/FILE  with  ZAP7FO 
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"'ART  NINE  -  COBOL  SORT  ROUTINE 
SECTION  17.  SYSTEM  SUMMARY 

17.1  Sys<  Application.  The  purpose  of  this  COBOL  Sort  Routine  is  to  reduce 
core  usage  -n  COBOL  programs  using  the  SORT  verb.  The  operational  improvements 
provided  by  this  COBOL  Sort  routine  includes  reduced  core  requirement  at  run  time 
which  improves  system  throughput.  This  subroutine  works  in  conjunction  with  the 
standard  COBOL  Sort  subroutines  to  allow  the  Sort/^lerge  program  to  use  work  space 
which  would  not  otherwise  be  used.  This  routine  cannot  be  used  in  the  Merge  por¬ 
tion  of  the  H6000  Sort/Merge  routines. 

17.2  System  Operation.  n/A. 

17.3  System  Configuration  The  COBOL  Sort  Routine  was  written  for  use  on  the 
H6000  computer  system  with  disk  I/O  devices. 

17.4  System  Organization.  The  COBOL  Sort  Routine  consists  of  one  (1)  subroutine 
(ZAP0FO)  . 

17.5  Performance.  N/A. 

17.6  Data  Base,  n/a. 

17.7  General.  Descriptions  of  Inputs ,  Processing,  Outputs: 

17.7.1  Inputs.  N/A. 

17.7.2  Processing.  The  COBOL  Sort  Routine  is  able  to  reduce  the  core  needed  for 
a  COBOL  program  containing  a  Sort  by  using  the  area  containing  the  File  Control 
Blocks,  which  is  not  normally  used  during  a  sort,  for  the  sort  work  area.  The 
contents  of  the  File  Control  Blocks  are  moved  out  to  a  temporary  (H#)  file  while 
the  sort  takes  place.  After  the  sort,  or  if  an  abort  takes  place,  the  File  Con¬ 
trol  Blocks  are  restored  from  the  H#  file.  The  COBOL  Sort  Routine  is  called  into 
the  COBOL  program  by  a  "CALL  PRESTO"  statement. 

17.7.3  Outputs.  N/A. 
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SECTION  18.  STAFF  FUNCTIONS  RELATED  TO  TECHNICAL  OPERATIONS 


18.1  ZAP0FO  -  COBOL  Sort 

Routine  (PRESTO).  The  function  of  this  subroutine  is  to 

reduce  core  requirements  at  run  time 

for  COBOL  programs  using  the  SORT 

verb . 

18.1.1  Initiation  Procedures.  The 

following  example  illustrates  how 

ZAP0FO  is  used 

Col  1  Col 

8 

Col  16 

$ 

OPTION 

COBOL 

$ 

USE 

ZAP0FO 

$ 

USE 

. SMA/ 1/ , . XBUF 1/ 4  5  40/ 

$ 

USE 

.XBUF 2/2/, F 1/872/, F3/872/ 

$ 

USE 

Pl/880/, .SMC/1/ 

$ 

COBOL 

NDECK 

(COBOL  SOURCE 

PROGRAM) 

0 

PROCEDURE 

DIVISION. 

0  S  0 1  0  ip' 

001 -BEGIN 

# 

0  0/  1-00 

CALL  PRESTO 

0  LS000 

SORT  SORT 

-FILE... 

080000 

STOP  RUN. 

$ 

EXECUTE 

$ 

LIMITS 

•  •  • 

$ 

PRMFL 

*L , R, S , .  .  . 

$ 

FILE 

H# , ,3R 

$ 

FILE 

SI , , 20R 

$ 

DATA 

FI 

$ 

TAPE 

F2 .  . . 

i 

TAPE 

F3.  .  . 

$ 

SYSOUT 

PI 

18.1.1.1  Program  Notes: 

a.  This  subroutine  can  not  be  used  with  the  Merge  function  of  the  Sort/Merge 

routines . 

b.  ZAP0FO  can  be  used  with  segmented  or  non-segmented  COBOL  programs  and  is 

accessed  by  inserting  a  "CALL  PRESTO"  in  the  COBOL  program  before  the 

SORT  verb . 

c.  The  calling  program  must  have  at  least  one  overlayable  labeled  common  area. 
A  labeled  common  area  will  be  non-over layable  for  one  of  two  reasons.  First,  it 
may  be  a  file  control  table  (FCT)  for  a  USING  or  GIVING  file,  or  a  SORT  file.  This 
particular  area  must  remain  non-overlayable.  Second,  statements  may  be  a  part  of  an 
INPUT  or  OUTPUT  PROCEDURE  which  cause  the  contents  of  the  area  to  be  referenced  or 
changed.  In  this  case,  the  area  can  be  made  overlayable  in  one  of  two  ways. 
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(1)  If  the  statements  causing  a  labeled  common  area  to  be  non  overlayable 
are  not  logically  an  integral  part  of  the  processing  of  sort  input  or  output 
records,  then  they  can  be  moved  outside  the  sort  input  and/or  output  procedures. 
Doing  this  will  make  the  area  overlayable. 

(2)  If  any  of  the  statements  are  logically  an  integral  part  ot  the  pro¬ 
cessing  of  sort  input  or  output  records,  then  the  only  way  to  make  the  area  over¬ 
layable  is  to  eliminate  the  corresponding  input  and/or  output  procedures.  An  input 
procedure  can  be  eliminated  by  replacing  its  RELEASE  statements  with  WRITE  state¬ 
ments  to  a  work  file;  replacing  the  INPUT  PROCEDURE  phrase  with  a  USING  phrase 
specifying  the  work  file;  and  PERFORMing  the  procedure  just  before  doing  the  sort. 

An  output  procedure  can  be  eliminated  in  similar  fashion.  This  technique  involves 
a  trade-off.  It  results  in  extra  I/O'  time  approximately  equivalent  to  two  passes 
on  the  sort  file  for  each  input  or  output  procedure  eliminated.  Parallel  test 
runs  will  show  the  implications  of  this  change  in  each  case. 

d.  ISP  Buffers.  ISP  provides  the  user  with  the  option  to  expliv.it!>  allo¬ 
cate  core  for  its  required  buffer  pool  using  labeled  common  (labels  . XRU I  1  and 
.XBUF2).  This  buffer  pool  will  be  overlayable  if  no  CALLS  to  ISP  subroutines  are 
a  part  of  any  input  or  output  procedure.  The  site  of  .XBUF1  is  selected  by  the 
user  to  provide  adequate  core  for  the  particular  ISP  application.  Refer  to  para 
18.1.1  for  a  typical  job  setup. 

e.  COBOL  File  Control  Tables  (FCTs)  .  For  each  file  defined  in  the  FILE 
Section,  COBOL  establishes  a  labeled  common  area  (label  equals  file  code)  which 
contains  the  file  control  block  record  processing  area,  all  buffers  and  other 
control  information  for  the  file.  This  combination  is  called  the  FCT  for  the  file. 
The  FCT  of  a  file  is  overlayable  if  the  file  is  not  a  sort  file;  is  not  referenced 
in  a  USING  or  GIVING  phrase;  and  is  not  referenced  in  an  OPEN,  CLOSE,  READ,  or 
WRITE  statement  which  is  part  of  an  input  or  output  procedure. 

f.  Defining  the  Overlay  Area.  The  sort  requires  its  work  space  to  be  a  single 
block  of  core  of  sufficient  size,  usually  6-10K.  After  the  labeled  common  areas 
which  are  to  be  used  for  sort  space  (i.e.,  FCTs,  ISP  buffers)  have  been  identified, 
it  is  necessary  to  insure  that  they  form  a  contiguous  block  when  the  program  is 
executing.  If  the  labeled  common  areas  do  not  comprise  a  block  of  adequate  size, 

a  filler  area  must  be  appended.  Finally,  the  sort  must  be  informed  that  these 
areas  constitute  its  work  space.  In  defining  the  overlay  area,  all  of  these 
things  are  accomplished.  The  $  USE  control  card  provides  the  means  of  defining 
this  overlay  area. 

g.  The  $  USE  Card.  The  following  remarks  on  the  General  Loader  are  a  neces¬ 
sary  introduction  to  the  $  USE  card. 

(1)  The  General  Loader  allows  any  program  to  reference  symbols  (i.e., 
SYMREF)  which  are  defined  (SYMDEFed)  within  other  programs.  These  references  are 
stored  in  a  cable  (load  table)  which  is  used  during  the  library  search  for  these 
other  prog-.ams,  now  called  subprograms.  If  found,  they  are  loaded  into  core. 

(2)  The  Loader  also  allows  any  program  (or  subprogram)  to  reference  one 
or  more  ramed  core  areas  (labeled  common).  Such  a  reference  includes  a  label  and 
size  (in  words).  The  Loader  uses  the  first  such  reference  it  encounters  to  define 
the  labeled  common  area;  a  block  of  core  of  the  specified  size  is  allocated,  and  rts 
beginn;ng  address  is  associated  with  the  specified  name.  All  such  references  allow 
the  rrferertcing  programs  (or  subprograms)  to  load  data  into  the  blech,  uni  to 
reference  and  alter  its  contents  during  execution. 
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(3)  The  $  USE  card  is  a  Loader  control  card  which  generates  references 
to  external  symbols  and  labeled  common.  When  the  Loader  encounters  a  $  USE  card, 
it  adds  the  referenced  external  symbols  to  its  load  table.  The  referenced  labeled 
common  which  had  not  been  previously  referenced  is  immediately  defined. 

h.  Defining  the  Overlay  Area  With  the  $  USE  Card.  Refer  to  para  18.1.1  for 
a  sample  job  stream  for  a  CCPOL  program  using  ZAP0FO.  In  this  example,  the  cards 
define  the  overlay  area. 


1 

Col  8 

Col  16 

$ 

USE 

. SMA/1/ , . XBUF 1/4540/ 

$ 

USE 

. XBUF2/ 2/ , Fl/872/ , F3/ 872/ 

$ 

USE 

PI/880,. SMC/ 1/ 

These  cards  must  appear  before  the  $  COBOL  card  so  that  they  will  he  the  first  to 
reference  (and  therefore,  define)  the  specified  labeled  common  areas.  The  Loader 
will  then  allocate  these  areas  in  a  contiguous  block,  .SMA  first,  .XRUF1  second, 
etc  .  ,  and  . SMC  las  t . 

(1)  The  sort  is  designed  so  that  if  the  special  labeled  common  areas 

.SMA  and  .SMC  are  defined  by  the  user,  it  will  use  the  block  of  core,  beginning  with 
the  first  work  in  .SMA  and  ending  with  the  first  word  in  .SMC,  for  work  space. 
Defining  .SM\  first  and  .SMC  last  insures  that  all  labeled  common  areas  defined  in 
between  will  be  used  by  the  sort. 

(2)  The  decimal  numbers  appearing  between  slashes  represent  the  size 
(in  words)  of  the  labeled  common  areas.  The  total  size  of  the  block  of  core  used 
by  the  sort  is  the  sum  of  these  sizes.  In  this  example,  ISP  buffers  (.XBUl'l, 

.XBUF2)  and  the  FCTs  of  three  files  (FI,  F3,  PI)  are  included  m  the  overlay  area. 

The  size  of  the  FCTs  can  be  determined  in  the  following  manner.  Following  each 
COBOL  program  listing  are  tvj  or  three  C.MAP  summary  pages.  Page  1  of  this  sum¬ 
mary  contains  information  on  labeled  common  areas  referenced  by  the  COBOL  program 
under  the  subheading  "BLOCK".  The  user  will  find  following  this  subheading  a  list 
of  all  these  areas  by  label,  and  adjacent  to  each  label,  under  the  subheading 
"LENGTH"  the  size  of  the  area  in  octal.  The  labels  of  FCTs  are  the  same  as  their 
corresponding  file  codes.  The  sizes  found  adjacent  to  these  labels  are  converted 
to  decimal  and  the  decimal  value  is  used  in  the  $  USE  card. 

(3)  The  minimum  size  of  the  ISP  buffer  space  must  be  determined  by  the 
user  based  on  the  extent  of  the  program's  ISP  activity.  (Reference  ISP  Manual, 

DD38).  In  the  example,  4542  words  (4540+2)  were  allocated  for  ISP  buffers.  The 
minimum  ISP  buffer  space  required  may  have  been  much  less  than  this,  but  4542 
words  were  used  so  that  the  sort  would  have  a  total  of  7K  for  work  space 

(1  +  4540+2+872  +  872+880  +  1  =  7168  =  7K)  . 

(4)  If  in  this  example,  there  was  no  ISP  activity,  then  the  areas  .XBUl'l 
and  .XBUF2  would  not  be  present  in  the  overlay  area  definition.  If  the  sort  was 
still  to  be  allocated  7K,  then  4542  words  of  fill  space  would  have  to  be  appended 
to  the  overlay  area.  The  user  can  do  this  by  adding  4542  to  the  size  of  .SMA. 

The  overlay  area  definition  would  then  look  like  this: 

Col  1  Col  8  Col  16 

$  USE  .  SMA/ 4 5 43/  ,1-1/87  2/ 

$  USE  F3/872/.P1/880/,. SMC/1/ 

i.  Changes  to  the  COBOL  Program.  The  only  required  modification  to  the  COBOI 
program  is  the  addition  of  the  statement  "CALL  PRESTO".  This  CALL  must  be  executed 
before  the  first  sort.  It  need  be  executed  only  once,  regardless  of  the  number  of 
sorts  in  the  program,  but  multiple  executions  are  permissible.  In  addition,  the  user 
may  make  modifications  as  discussed  in  the  previous  section  to  cause  labeled  common 
areas  to  be  overlayable. 
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j.  Job  Control  Lanuguage  (JCL).  Additional  JCL  cards  are  required  for  four 
purposes : 

(1)  To  cause  ZAP0FO  to  be  loaded  with  the  COBOL  program,  the  following 
control  card  must  be  included  in  the  JCL  deck: 

$  USE  ZAP0FO 

This  card  should  follow  the  $  OPTION  COBOL  card  and  precede  any  $  COBOL,  $  OBJECT, 
or  $  EXECUTE  cards. 

(2)  A  temporary  random  overlay  file  must  be  allocated  using  the  following 
control  card: 

$  FILE  H#,,3R 

The  file  size  given  is  typical;  however,  the  size  may  be  increased  or  decreased  as 
appropriate.  The  card  must  follow  the  $  EXECUTE  card. 

(3)  The  library  on  which  ZAP0FO  resides  must  be  allocated  to  the  execu¬ 
tion  activity.  The  procedure  for  accomplishing  this  is  determined  at  the  respective 
installation.  A  typical  way  would  be  to  include  a  card  such  as  the  following  after 
the  $  EXECUTE  card: 

$  PRMFL  *L,R,S, catalog-file-string 

Systems  Software  personnel  should  be  consulted  to  determine  the  appropriate  library 
control  card  to  access  this  subroutine. 

(4)  The  $  USE  card  is  used  to  define  the  overlay  area.  One  or  more  cards 
may  be  used.  The  card(s)  should  be  located  in  the  deck  similar  to  the  3  USE  ZAP0FO 
card. 

k.  Abnormal  Termination  During  a  Sort.  In  the  event  of  program  abort,  both 
the  COBOL  program  and  ISP  execute  wrap-up  routines  which  flush  buffers,  close  files, 
etc.  If  ZAP0FO  is  used  with  the  program  and  the  abort  occurred  during  a  sort, 
these  areas  will  not  necessarily  all  be  in  core.  To  avoid  incomplete  and  aborted 
wrap-ups,  ZAP0FO  intercepts  the  wrap-up  transfer  so  that  the  overlay  area  can  be 
restored  prior  to  the  usual  wrap-up  processing.  This  is  done  only  if  the  abort 
occurred  during  a  sort. 

18.1.1.2  References: 

a.  H6000  Control  Card  Reference  Manual,  BS19. 

b.  H6000  General  Loader  Manual,  DD10. 

c.  H6000  ISP  Manual,  DD38. 

18.1.2  Staff  Input  Requirements.  N/A. 

18.1.2.1  Input  Formats.  N/A. 

18.1.2.2  Composition  Rules.  N/A. 

18.1.2.3  Input  Vocabulary.  N/A. 


18.1,2.4  Sample  Inputs.  N/A. 
18.1,3  Output  Requirements.  N/A. 
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18.1.3.1  Output  Formats.  N/A. 

18.1.3.2  Sample  Outputs.  N/A. 

18.1  .3.3  Output  Vocabulary.  N/A. 
18.1. 4  Utilization  of  System  Output 


.  N/A. 


18.1.5  Recovery 


and  Error  Correction  Procedures.  N/A. 
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SECTION  20.  STAFF  FUNCTIONS  RELATED  to  TECHNICAL  OPERATIONS 

20.1  ZABUFO  -  B3500  to  H6000  COBOL  Translator  ■  The  function  of  this  program  is  to 
translate  programs  written  in  B3500  COBOL  to  H6000  COBOL. 

20.1.1  Initiation  Procedures.  To  initiate  execution  of  ZABUFO,  the  user  may 
execute  the  Job  Control  Language  (JCL)  in  paragraph  20.1.2.4. 

20.1.1.1  Program  Notes: 

a.  The  source  output  is  placed  on  tape  or  disk  under  JCL  control.  If  disk 
is  used,  appropriate  user  action  must  be  taken  to  allocate  Catalog/File  space 
prior  to  the  translation. 

b.  If  the  source  deck  used  as  input  contains  and/or  punches, 

program  ZAA0FO  should  be  executed  as  the  first  activity  in  the  job  stream.  (Ref 
AFM  171-604,  Part  Four,  Volumes  I  and  II.) 

c.  Tape  input  to  the  translator  must  be  converted  to  H6000  system  standard 
format  "ia  program  ZAT1FO.  (Ref  AFM  171-604,  Part  Five,  Volumes  I  and  II.) 

d.  Source  program  changes  made  by  the  translator  are: 

(1)  General  Changes: 

The  change  numbers  reflected  in  cc  79-80  of  the  input  source  are 
retained  on  the  appropriate  translated  source  cards. 

The  translated  source  cards  are  renumbered  starting  with  000100  and 
incremented  by  0 (4 0 1 0 0 

Non-numeric  literals  are  scanned  for  quotes  (")  imbedded  in  the 
literal.  If  found,  the  quote(s)  are  transliterated  to  colon(s)  and  flagged  (DIM 

(2)  IDENTIFICATION  DIVISION: 

In  PROGRAM- ID  the  program  is  replaced  with  the  new  ID  field  of  the 
parameter  card.  (Ref  Figure  20.01.) 

The  remainder  of  this  Division  is  copied. 

(3)  ENVIRONMENT  DIVISION: 

(a)  CONFIGURATION  SECTION. 

1  SOURCE -COMPUTER. 

The  old  paragraph  is  replaced  with  the  entry  fnW  • 

2  OBJECT-COMPUTER. 

B3.r)00  unique  information  is  replaced  with  the  .  ti  .>  Mr . 
SEGMENT  LIMIT  is  retained. 
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3  SPECIAL-NAMES. 

Any  existing  entries  referring  to  hardware  names  arc  deiet 
ed  and  flagged  (D13);  others  are  retained. 

GET IMB- IS- 1)6000 -HATH,  COLLATE -COMMERC I AL  and  COMPILE  ERRORS 

entries  are  generated. 

(b)  INPUT-OUTPUT  SECTION: 


A  reserved  word  test  is  accomplished  on  each  SELECTED  file  name. 
If  found,  the  rightmost  digit  is  replaced  with  the  character  "Q"  and  flagged  (DS)  . 


mats.  File 

files. 

clauses  are 


1  FILE-CONTROL: 

All  SELECT  statements  are  modified  to  acceptable  H6000  for- 
codes  are  assigned  as  FI,  F2 .  F9,  FJ . . F0. 

The  clause  FOR  CARDS/LISTING  is  appended  to  the  appropriate 
RANDOM  ACCESS  and  ACTUAL  KEY  clauses  are  retained;  all  other 

deleted . 


2  I -0- CONTROL: 

The  clause  APPLY  SYSTEM  STANDARD  FORMAT  ON  is  generated  for 
each  file  name  SELECTed  in  the  FILE-CONTROL  paragraph. 

NOTE:  If  stranger  files  are  to  be  processed  by  the  trans¬ 

lated  program,  appropriate  user  modification  must  be  made.  (Ref  H6000  COBOL  Ref 
erence  Manual,  BS08.) 


The  SAME  AREA  clause  is  retained;  all  others  are  deleted. 
(43  DATA  DIVISION: 

A  reserved  word  test  is  accomplished  for  unique  H6000  entries.  If 
found,  the  rightmost  digit  is  replaced  with  the  character  "Q"  and  flagged  (D5)  . 

(a)  FILE  SECTION: 

Whenever  an  FD  is  found,  the  translator  flags  the  FI)  (D6  and 
D29)  due  to  a  null  VALUE  OF  ID  clause  and  because  FD  clauses  as  input  have  been 
deleted  and  generates: 


FD  file-name 

LABEL  RECORDS  ARE  STANDARD 

VALUE  OF  ID  RECORDS  ARE  STANDARD 

Whenever  a  SD  is  found,  the  translator  flags  the  SD  (D29J  be¬ 
cause  SD  clauses  as  input  have  been  deleted  and  generates: 


SD  file-name 
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(o)  WORKING-STORAGE  (^CONSTANT)  SECTION: 


All  COMPUTATIONAL,  SYNCHRONIZED  and  JUSTIFIED  clauses  will  he 
flagged  (D8,  D9  or  D22)  .  (Special  attention  should  be  given  if  these  elements  are 
imbedded  in  a  record  description.) 

Two  0 1  levels  (record  descriptions)  are  generated  to  provide 
the  H6000  data  name  TODAYS-DATE  to  the  PROCEDURE  DIVISION  coding  at  object  time. 

ALL  COPY.... are  flagged  (1)12)  and  retained  in  the  source  program 
as  comments  (*  in  column  7). 


H6000 . 


Word  ALL  is  flagged  (D19)  because  of  restrictions  on  its  use  in 


BLANK  WHEN  ZERO. 

BZ 

is 

flagged 

(02) 

as 

it 

is 

an  unacceptable 

abbreviation 

of 

JUSTIFIED. 

JS 

is 

flagged 

(D21) 

as 

it 

is 

an 

unacceptable 

abbreviat ion 

o  f 

MOD 

|  is 

deleted 

and 

flagged  (D23) 

• 

OCCURS. 

OC 

is 

flagged 

(024) 

as 

it 

is 

an 

unacceptable 

abbreviation 

of 

PICTURE. 

PC 

is 

flagged 

(025) 

as 

it 

is 

an 

unacceptable 

abbreviation 

of 

SYNCHRONIZED. 

SY 

is 

flagged 

(026) 

as 

it 

is 

an 

unacceptable 

abbreviation 

of 

SZ 

is 

flagged 

(D27) 

as 

it 

is 

an 

unacceptable 

abbreviation 

of  SLZI: 

VA 

is 

flagged 

(028) 

as 

it 

is 

an 

unacceptable 

abbreviation 

0  f 

VALUE  . 


If  DATE-COMPILED  is  used  as  a  value  for  an  item,  it  is  changed 
to  0  and  flagged  (D45) . 

(5)  PROCEDURE  DIVISION: 

All  DECLARATIVES  (if  present)  are  copied. 

Code  is  generated  to  place  the  current  date  in  the  generated  data 
name  TODAYS-DATE. 

A  reserved  word  test  is  accomplished  for  unique  H6000  entries.  If 
found,  the  rightmost  digit  is  replaced  with  the  character  "Q"  and  flagged  (D5) . 

All  SYMBOLIC  coding  is  flagged  (D4)  and  retained  in  the  source  program 
as  comments  (*  in  column  7). 

ACCEPT,  DISPLAY  8  STOP  (LITERAL)  verbs  are  flagged  (Dl,  D2,  1)3)  as 
requiring  manual  modification. 

The  IF  verb  coding  is  modified  to  include  explicit  AND/OR  connectors 
between  all  non-numeric  literals  in  statements  with  implied  connectors;  these 
connectors  are  not  inserted  between  data  names  or  numeric  literals  in  these 


<4 


*  P 
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statements.  Also,  in  the  operator  "■  TO",  the  word  "TO"  is  not  deleted.  For  these 
reasons  the  IF  verb  is  always  flagged  D7.  In  the  event  that  an  IF  statement  con¬ 
tains  a  non-numeric  literal  greater  than  50  characters,  it  is  truncated  to  50 
characters  and  is  flagged  (D17) . 

READ  and  RETURN  statements  in  H6000  COBOL  require  explicit  AT  End 
coding.  All  READ  and  RETURN  verbs  are  flagged  (D14  and  D15)  for  programmer 
interrogation. 


use . 


The  ALTER  verb  is  flagged  (D18)  as  some  installations  restrict  its 


Word  ALL  is  flagged  (D19)  because  of  restrictions  on  it  use  on  116000. 

CLOSE  statements  flagged  (D31)  because,  if  used,  PURGE  or  RELEASE  are 
not  acceptable.  An  attempt  is  made  to  delete  the  first  occurrence  of  either  PURGE 
or  RELEASE. 

ALL  COPY  ...  are  flagged  (D12)  and  retained  as  comments  (*  in  cc  7). 
FILL  ...  is  flagged  (D32)  and  retained  as  comments  (*in  cc  7). 

If  GO  is  not  followed  by  the  word  TO,  it  is  flagged  (D34). 
INPUT-OUTPUT  is  changed  to  1-0  and  flagged  (D41) . 

MOD  is  deleted  and  flagged  (D23)  . 

O- 1  is  changed  to  1-0  and  flagged  (D35)  . 

ALL  OPEN  statements  are  flagged  (D36)  as  the  words  ACCESS,  LOCK  or 
REVERSED  are  not  acceptable  and  if  used,  should  be  removed  by  the  programmer. 

ALL  SORT  statements  are  flagged  (DIO)  as  the  words  END,  ERROR,  LOCK, 
PURGE,  RELEASE  and  RUN  are  not  acceptable  and  if  used,  should  be  removed  by  the 
programmer. 

SW1  thru  SW8  are  flagged  (D37)  as  these  are  B3500  switches. 

TRACE  is  flagged  (D38)  and  retained  as  comment  (*in  column  7) . 

UNLOCK  ...  is  deleted  and  flagged  (D39)  . 

WAIT  ...  is  deleted  and  flagged  (D34). 

WRITE  statements  are  flagged  (D30)  as  format  differs  between  B3500 

and  H6000. 

ZIP  ...  is  flagged  (Dll)  and  retained  as  comment. 

KEY  CONVERSION  and  LOCK  clauses  are  removed  from  SEEK  statements 
and  flagged  (D42)  . 

Any  reference  to  UNDIGIT  LITERALS  is  flagged  (D43). 

DATE-NAMES  followed  by  subscript  without  an  intervening  space  are 


flagged  (D44) . 


1  July  1978 
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e.  Known  coding  differences  that  ere  not  modified  or  flogged  by  the  trans¬ 
lator: 

(1)  ENVIRONMENT  DIVISION: 

The  COPY  is  not  flagged. 

(2)  DATA  DIVISION: 

Maximum  size  for  non-n'imeric  literals  is  132  characters. 

Maximum  size  for  numeric  literals  is  18  characters. 

(31  PROCEDURE  DIVISION: 

The  statement  ADD  ...  TO  ...  GIVING  ...,  the  word  TO  is  illegal. 

For  printed  reports,  existing  maximum  vertical  line  counts  must  be 
reduced  if  WWMCCS  Security  Header  and  Trailer  Caveats  are  utilized. 

ROUNDED  may  not  be  used  on  remainder  in  DIVIDE  statements. 

f.  A  side-by-side  listing  of  the  B3500  program  and  the  translated  program 
is  produced. 

g.  Diagnostic  codes  are  placed  on  the  side-by-side  listing.  A  list  of  the 
codes  and  their  meaning  is  given  in  Figure  20-02. 

h.  A  source  program  file  position  index  list  is  produced  immediately  after 

the  diagnostic  codes. 

20.1.1.2  References: 

a.  AFM  171-121. 

b.  B3S00  Information  Processing  Systems  -  COBOL. 

c.  H6000  COBOL  Reference  Manual,  BS|8. 

d.  H6000  COBOL  Users  Guide,  BS09. 

e.  H6000  Control  Cards,  BS19. 

f.  H6000  Utility,  BQ66 

g.  H6000  File  System,  BR38. 


h.  H6000  GCOS,  BR43. 


i.  AFM  171-604,  Vol  I. 

20.1,2  Staff  Input  Requirements.  Input  will  consist  of  COBOL  source  programs  on 
card,  tape  or  disk.  One  parameter  card  is  required  for  each  program  to  be  trans¬ 
lated.  (Ref  Figure  20-01.) 


20.1.2.1  Input  Formats.  COBOL  source  program  input  will  be  a  card  deck  or  a  tape 
or  disk  file  containing  card  images.  A  tape  or  disk  file  will  be  in  system  stan¬ 
dard  format. 

One  parameter  card  will  be  input  for  each  program  to  be  translated.  The  format  is 
described  by  Figure  20-01. 
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20. 1.2. 2  Composition  Rules.  A  maximum  of  SO  programs  may  be  input  in  one  activity. 

20.1.2.3  Input  Vocabulary.  N/A. 

20.1.2.4  Sample  Inputs: 

a.  SAMPLE  JCL  FOR  CARD  INPUT  (SOURCE).  If  the  source  deck  contains 

/ «  1  PJ 

and/or  punches,  program  ZAA0FO  should  be  executed  as  the  first  activity  in 

the  job  stream.  (Ref  AFM  171-604,  Part  Four,  Volumes  I  and  II.) 


Col  1 

Col  8  Col 

16 

$ 

IDENT 

(User  Specified) 

$ 

USERID 

(User  Specified) 

S 

LIBRARY 

LA 

s 

USE 

ZABUFO 

$ 

ENTRY 

C.ZABU 

$ 

EXECUTE 

$ 

LIMITS 

nl , 23K, ,n2 

$ 

TAPE  9 

LA.X0D, .nnnnn,, USER- LIBRARY 

$ 

DATA 

C2 

[Input  SP891-BU1 

$ 

Parameter  Cards 

fl-n)]  Figure  20-01. 

DATA 

Source  Deck  1 

Cl 

$ 

Source  Deck  n 
TAPE9 

F2 

(output  file  description  - 

or 

i 

PRMFL 

F2 

to  UTILITY  or  COBOL) 

$ 

SYSOUT 

PI 

$ 

ENDJOB 

where  n  »  a  maximum  of  SO 

nl  ■  number  of  parameter  cards  X  .04  hrs 

n2  *  total  number  of  source  cards  of  all  programs  to  be  translated  X  2.S  (SYS 
OUT  limits) 


* 


b.  SAMPLE  JCL  FOR  TAPE  OR  DISK  INPUT  (SOURCE).  Tape  input  to  the  translator 
must  be  converted  via  program  ZAT1F0  (Ref  AFM  171-604,  Part  Five,  Volumes  I  and  II). 
B3500  MFSOLT  tapes  contain  a  directory  plus  one  fxle  for  each  source  program.  To 
get  the  correct  number  of  programs  converted  (ZAT1F0) ,  the  user  must  add  one  to  the 
number  of  files  input  (Ref  Figure  10-02,  INPUT  FILE/REEL  Field).  ZABUFO  will  accept 
onl.y  tho  flrst  B3S00  source  program  output  from  ZAT1F0.  If  the  remaining  programs 
are  to  be  translated,  each  program  must  be  input  individually  to  ZABUFO  via  UTIIITY 
or  input  as  cards. 


Col  1 

S 

t 

i 

i 

t 

t 

i 

t 

t 


Col  8 

I  DENT 
USERID 
LIBRARY 
USE 
ENTRY 
EXECUTE 
LIMITS 
TAPE  9 
DATA 

[Input  SP891-BU1 


Col  16 

(User  Specified) 

(User  Specified) 

LA 

ZABUFO 

C.ZABU 

nl  ,23K,  ,n2 

LA.XDD, ,nnnnn,  .USER-LIBRARY 
C2 


Parameter  Cards  (1-n)]  Figure  20-01. 
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A  PM  1  71  -604  (Cl ) 
Vo  1  limp  I  i 


1  January  1977 


RECORD  LAYOUT 


Parameter  Cards 
CZABUFOAU 

»  lit  OISCNIM  I  OH 


Filler 


■  IC«M  1 1  Til 

Program  Identifier 
Parameter  Cards 
meexo  tosiTiows  tyu  /cim 

01  -  11  AN 


U3S00  PROGRAM-  III  20-25 


H6000  PROGRAM- ID  26-31 


Filler 


source  ORIGIN(S) 


33  -  36 


F  i  1 1  c  r 


37  -  80 


Unclassified 


STB9 1 -BUI _ 

mstauctioM 

Inter  "PCNSP89 1  BUI " 
first  card  only. 


This  entry  must  exact¬ 
ly  match  the  first 
six  characters  of  the 
input  Program-ID. 

If  less  than  six 
characters,  left 
justify  the  entry. 

Program- ID  to  be 
placed  in  the  Program 
ID  paragraph  and  in 
cc  73-78  of  each  out¬ 
put  source  card. 

Rlank . 

Active  only  for  the 
first  parameter  card 
of  each  translator 
activity.  If  "CARD", 
all  source  programs 
will  be  card  input. 

I  f  blank,  all  source 
programs  are  input 
from  tape  or  disk 
under  JCL  control . 

Blank. 


NOTE:  One  parameter  :ard  is  requ  red  per  inptt  source  program.  A 
maximum  of  SO  paramet >r  cards  is  i  llowed  per  activity.  Where 
multiple  parameter  ca -ds  are  inpu!  ,  the  product  control  nuaibcr  (PCN) 
will  be  reflected  on  :he  first  cai d  onlv. 


Af  1 190 


FIGURE  20-01.  Program  Identifier  Parameter  Cards  (2ABUFO) 
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INDEX  OF  THE  OIASNOSTIC  ECDES  ON  THE  JlOftiY-S JDI 
CODE  DIAGNOSTIC  COMMENT 

DI  REFERENCE  MANUAL  FOR  PROPER  ACCENT  FORMAT 
Dl  REFERENCE  MANUAL  FOR  PROPER  DISPLAY  FORMAT 
DI  STOF  UITCRAL)  SHOULD  M  US|0  WITH  DISCRETION 
DA  ENTER  SYMBOLIC  NOT  ACCEPTABLE  ON  H4000*  MADE  COMMUTE 
DE  DATa^NAME  USED  |E  IRScRVep  WORD.  LAST  CHAR  eHABGe6  TO  0 
DA  VALUE  OP  |0  TO  EE  IN>ERTE|  BY  PROGRAMME* 

D7  IF  STATEMENT  M*Y  R|EUIR(  FURTHER  MODIFICATION 
D"  CHECK  COMP  FIELDS  SO"  COMPATAEILITY 
Of  CHECK  STNc  FIELDS  SQR  COMPATAEILITY 

DIO  IN  SoRT^ENDiEREORtLOCKtFUEER^ELEASltRUNiiNBT  ACCEPTABLE 
Dll  ZIP  NOT  ACClRTASkE  ON  SAoOOi  MADE  THIS  CARD  A  COMMENT 
DIE  COPY  REQUIRES  *  LIBRARY*  MADE  THIS  CARD  A  CQKM|NT 

die  special  names  bifs|R|ns  to  ha"»«arb.names  oileIed 

D1A  INSURE  READ  NA|  EXPLICIT  AT-ENB  CLAUSE 
DIB  INSURE  RETURN  DfAl  EXPLICIT  AT-IND  CLAUSE 
DIE  QUOTE  WITHIN  A  OUQT|  ILLEGAL,  CHANGED  TO  COLtN 
017  IN  IF  STATEi  UNAlLl  TO  PR0EISE  LITERAL  GET|  THEN  BO  CMaM 
TRUNCATED  IT«  CHANGE  TO  OBIQINAL  VALUE  BEFORI  COMPILATION 
DIB  SOME  INSTALLATIONS  RESTRICT  THE  USE  OF  THE  aLT|R  V|R| 

0 1 B  REFERENCE  MANUAL  PE"  R«OF«R  USB  OF  WORD  ALL 

DSO  SC  SHOULD  BE  CHANGE?  TB  BLANK  SERO 

DEI  US  SHOULD  BE  CHANGED  TO  JUST  OR  UUSTIFfED 

Pit  CHECK  JUSTIFIED  FlILDS  FOR  COHRATABIL ! TY 

DIE  MOD  HAS  BEEN  DILETEC 

DS4  OC  should  be  cnangip  TQ  OICURS 

DEO  RC  SHOULD  BE  CHANGED  TB  RlC  OR  RICTURB 

PEE  SY  SHOULD  BE  CHANGED  TO  SYNC  OR  SYNCHRONIZES 

DS7  SZ  SHOULD  BE  CHANGED  TO  EUR 

DEE  VA  SHOULD  IE  CHANGED  TO  VALUE 

DEB  FD  AND  SO  CLAUSES  AS  INPUT  HAVE  SEEN  DELETED 

DSO  REFERENCE  MANUAL  FOR  P80P|R  WRITE  FORMAT 

DEI  CLOSE  WITH  PURGE  Ol  RELEASE  NOT  ACCEPTABLE 

IF  USED,  ATTEMPTED  TO  QELlTE  FIRST  OCCURRENCE 
Olt  RILL  NOT  ACCEPTABLE  ON  Ht«dO,  MADE  THIS  CARD  A  COMMENT 
DIE  SO  MUST  ae  FOLLOWER  SY  TH»  WORE  TO 
034  WAIT  NOT  ACCEPTABLE  ON  HB0OQ,  DELETED  IT 
DIE  0-1  HAS  SEEN  CHANGED  TO  1*0 

DEE  IF  USED,  OPEN  WITH  ACCESS, LOCK  OR  REVERSED  NOT  ACCEPTABLE 
PET  SW|  THRU  svs  nit  acceptable  oh  MSOOO 

DEE  TRACE  NOT  ACCEPTABLE  ON  H|000i  NADI  TNI S  CARO  4  COMMENT 
DE*  UNLOCK  NOT  ACCEPTABLE  ON  06000*  DELETER  IT 
D*0  WITH  LOCK  HAS  rirn  REMOVED  FROM  READ  STATEMENT 
DAI  INFUT.OUTFUT  HAS  SEEN  (HANGED  To  i-o 

DAE  KEY  CONVERSION  aNd/9»  LOCK  DELETED  FROM  S|EK  SIaTeMENY 

DAS  undigit  literals  All  UNACCEPTABLE  ON  HSOOO 

DA*  HSOOO  REQUIRES  A  SPACE  BETWEEN  DATA. NAME  AND  SUlSclIRT 
DA|  OATE-COMRILCS  UNACCEPTABLE  VALUE  ON  HBOOOiCMANflP  ID  ZERO 


FIGURE  20-02.  Index  of  Diagnostic  Codes 
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PART  ELEVEN  -  TAPE  CERTIFICATION  PROGRAM 
SECTION  21.  SYSTEM  SUMMARY 


21.1  System  Application.  The  purpose  of  the  Tape  Certification  Program  is  to 
provide  a  means  of  certifying  magnetic  tapes  for  those  installations  not  possess¬ 
ing  an  electronic  tape  certifier.  It  provides  the  capability  of  locating  and 
identifying  defective  sections  of  magnetic  tape.  This  will  enable  defective  and 
marginal  tapes  to  be  identified  and  removed  from  the  tape  library. 

21.2  System  Operation.  N/A. 

21.3  System  Configuration.  The  tape  certification  program  was  written  for  use  on 
the  H60M  computer  system  with  tape  I/O  devices. 

21.4  System  Organization.  The  Tape  Certification  Program  consists  of  one  (1) 
stand-alone  program  (ZAt3FO) . 

21.4.1  ZAT3F0  -  Tape  Certification  Program.  ZAT3F0  is  a  GMAP  coded  program  using 
any  9 -track  tape  as  input. 

21.5  Performance.  N/A. 

21.6  Data  Base.  N/A. 

21.7  General  Descriptions  of  Inputs.  Processing,  Outputs; 

21.7.1  Inputs.  Any  9-track  tape  the  user  wishes  to  be  certified  as  to  its  physi¬ 
cal  condition. 

21.7.2  Processing.  The  Tape  Certification  Program  is  a  stand-alone,  self-contained 
program.  All  checking,  logging,  and  error  recovery  are  internal  to  the  program. 

21.7.3  Ckitputs,  N/A. 
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SECTION  22.  STAFF  FUNCTIONS  RELATED  to  TECHNICAL  OPERATIONS 

22.1  ZAT3FO  -  Tape  Certification  Program.  The  function  of  this  program  is  to 
certify  the  condition  of  magnetic  tapes. 

22.1.1  Initiation  Procedures.  The  following  JCL  is  used  to  execute  ZAT3FO: 


Col  1  Col  8  Col  16 


$ 

IDENT 

(User  Specified) 

$ 

USERID 

(User  Specified) 

$ 

LOWLOAD 

$ 

OPTION 

NOSETU 

$ 

LIBRARY 

LA 

$ 

USE 

ZAT3FO 

$ 

ENTRY 

ZAT3F0 

$ 

EXECUTE 

$ 

LIMITS 

NNN, 5K, ,2000 

$ 

TAPE  9 

LA , X0D , , nnnnn ,  .USER- LIBRARY 

$ 

FILE 

P*  .NULL 

$ 

TAPE9 

FA,X1D(TAPE  TO  BE  CERTIFIED) 

$ 

ENDJOE 

22.1.1.1  Program  Notes  : 

a.  NNN  -  Number  of  Reels  Approximately  .005  hours  are  required  to  certify 
one  reel  of  tane.  The2user  should  enter  a  value  dependent  on  the  number  of  tapes 
to  be  certified.  If  the  number  of  reels  is  less  than  ten,  use  the  default  option. 

22.1.1.2  References: 

a.  H6000  Equipment  Operators  Manual,  DA33. 

b.  H6000  Control  Card  Reference  Manual  #BS19. 

22.1.2  Staff  Input  Requirements.  N/A. 


22.1.2.1  Input  Formats.  N/A. 


22.1.2.2 

Composition  Rules.  N/A. 

22.1.2.3 

Input  Vocabulary.  N/A. 

22.1.2.4 

Sample  Inputs.  N/A. 

22.1.3  Output  Requirements.  N/A. 

22.1.3.1 

Output  Formats.  N/A. 

22.1.3.2 

Sample  (Xitputs.  N/A. 

22.1.3.3 

Output  Vocabulary.  N/A. 

22.1.4  Utilization  of  System  Output 

a.  The  following  information  messages  are  provided  on  the  execution  report 
under  the  activity  identifier;  e.g.,  *ACTY-01  $  CARD  0005  GELOAD: 
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(1)  TAPE  REEL  NUMBER  IS  NNNN.  This  message  identifies  the  tape  being 
certified.  NNNN  is  the  reel  number. 

(2)  UNABLE  TO  PERFORM  I/O.  This  message  results  when  an  irrecoverable 
I/O  error  is  encountered.  This  situation  is  sometimes  the  result  of  hardware 
malfunction,  a  tape  not  having  an  end  of  tape  (EOT)  marker,  or  the  tape  unit  not 
sensing  the  EOT  marker. 

(3)  NO  TAPE  ERRORS  DETECTED.  Indicates  that  the  tape  was  not  found  to 
be  defective. 

(4)  TAPE  DEFECTIVE  BOT  PLUS  NNNN  FEET.  A  defective  section  of  tape  was 
encountered  NNNN  (number  of  feet)  feet  from  beginning  of  tape  (BOT).  This  message 
will  occur  for  each  error  detected. 

b.  ZAT3FO  will  allocate  a  tape  handler  and  the  operator  should  ready  the  unit 
with  the  first  tape  to  be  certified.  At  the  end  of  the  certification  process  for 
each  tape,  the  following  message  will  appear  on  the  console; 

***TAPE  CERTIFIER  S#XXXXX,  (T)ERM  OR  (C)ONTINUE 

If  there  is  another  tape  to  be  certified,  the  operator  should  type  a  "C".  A  "T" 
will  terminate  the  run.  If  "C"  is  entered,  a  standard  mount  message  will  be 
issued  for  the  tape  handler. 

c.  The  following  message  will  appear  if  no  label  record  exists  on  the  tape; 

* ‘ENTER  REEL  NUMBER  i-cc-uu 
The  reel  number  should  be  entered. 

22,1.5  Recovery  and  Error  Correction  Procedures.  N/A. 
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PART  TWELVE  -  SYSTEM  STARTUP  CREATE/UPDATE 
SECTION  23.  SYSTEM  SUMMARY 

23.1  System  Application.  The  purpose  of  this  system  is  to  create  and  maintain  a 
tape  which  contains  a  copy  of  the  current  boot-deck.  This  system  enables  an 
initial  tape  to  be  created  from  card  input.  It  also  provides  the  ability  to  update 
this  boot-deck  tape  with  any  sections)  of  the  boot-deck  by  building  a  new  tape 
with  the  new  section(s)  applied  ir.  the  proper  sequence. 

23.2  System  Operation.  N/A. 

23.3  System  Configuration.  The  system  startup  boot- tape  program  was  written  for 
use  on  the  H6000  computer  system  with  card  reader  and  tape  I/O  devices. 

23.4  System  Organization.  This  system  consists  of  one  (1)  stand-alone  program 

(ZAT4F0)  .  - 

23.4.1  ZAT4F0  -  H6000  System  Startup  Tape  Create/Update '  Program.  This  program 
provides  the  capability  to  create/update  and  print  the  H6000  system  startup  boot- 
tape. 

23. 5  Performance.  N/A. 

23.6  Data  Base.  N/A. 

23.7  General  Description  of  Inputs,  Processing^  Outputs.  See  specific  informa¬ 
tion  of  inputs,  processing^  and  outputs  in  Section  24. 
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SECTION  24.  STAFF  FUNCTIONS  RELATED  TO  TECHNICAL  OPERATIONS 


24.1  ZAT4FO  -  116000  System  Startup  Tape  Create/Update  Program.  The  function  of 
this  program  is  to  create/update  and  print  the  116000  system  startup  boot- tape. 
ZAT4FO  accepts  as  input  any  section(s)  of  the  boot-deck  and  the  current  boot-tape 
and  creates  a  new  boot- tape. 

24.1.1  Initiation  Procedures.  To  initiate  execution  of  ZAT4F0,  the  user  may 
execute  the  Job  Control  Language  (JCL)  in  paragraph  24.1.2.4. 

24  .1.1.1  Program  Notes : 

a.  BMC  is  used  to  process  the  input  and  output  since  they  are  not  standard 
foimat  (mixed  BCD  and  binary). 

b.  The  boot-deck  sections  to  be  updated  must  be  input  in  the  same  order  as 
they  appear  on  the  current  boot-tape  (See  paragraph  24. 1.2. 4. c). 

c.  ZAT4F0®is  designed  to  read  7  or  9  track  tapes. 

d.  Input  cards,  object  cards,  and  the  sections  on  tape  are  sequence  checked. 
If  they  are  out  of  sequence,  an  error  will  be  printed  and  the  activity  will  term¬ 
inate  with  an  A1  abort. 

24.1.1.2  References: 

a.  116000  Startup  and  Operations,  DD33. 

b.  H6000  Control  Cards,  BS19. 

c .  116000  Bulk  Media  Conversion,  BP30. 

24.1.2  Staff  Input  Requirements.  Tnput  is  the  portion(s)  of  the  boot-deck  which 
need  updating  and  a  current  boot-tape.  The  boot-deck  sections  to  be  updated  will 
be  preceded  by  a  Product  Control  Card  (PCN).  See  Figure  24-01.  User  requirements 
will  determine  frequency  of  processing. 

24.1.2.1  Input  Formats: 

a.  Reference  H6000  Startup  and  Operation  Manual,  DD33  for  description  of 
boot-deck  sections  to  be  updated. 

b.  $BOOT-D  Card  Format.  See  Figure  24-01. 

c.  $PRINT  Card  Format.  See  Figure  24-01. 

d.  Product  Control  Card  (PCN)  Format.  See  Figure  24-01. 

24.1.2.2  Composition  Rules.  The  boot-deck  sections  to  be  updated  must  be  input 
in  the  same  sequence  as  they  appear  on  the  current  boot- deck  tape.  (See  paragraph 
24. 1.2. 4. c) .  These  boot-deck  sections  must  always  be  preceded  by  a  "PCN"  card  and 
for  the  initial  creation  a  "$B00T-D"  card  is  required.  (See  Figure  24-01). 

24.1.2.3  Input  Vocabulary.  N/A. 
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a.  Job  Control  Language  (JCL)  for  the  initial  creation  of  H6000  system 
startup  boot-tape: 

Col  1  Col  8  Col  16 

$  IDENT  (User  Specified) 

$  USERID  (User  Specified) 

$  CONVER 

$  READ  IN, AIR 

$  INPUT  MBIN 

$  TAPEn  0T.X1D, , , .BOOTAPE 

$  OUTPUT  B27 ,MIXL .NLABEL  ,NSER 

$  ENDJOB 

(where  "n"  on  the  $  TAPE  card  is  a  7  or  9  depending  on  the  type  of  drive  to  be 
used  for  the  tape  bootload) . 

b.  Job  Control  Language  (JCL)  for  1 1600 0  system  startup  tape  update. 

Col  1  Col  8  Col  16 

$  IDENT  (User  Specified) 

$  USERID  (User  Specified) 

$  CONVER  NSPIN 

$  INPUT  MBIN 

$  READ  IN 

$  FILE  OT , X1S , 50  L 

$  LIBRARY  LA 

$  USE  ZAT4FO 

$  ENTRY  C.2AT4 

$  EXECUTE 

$  LIMITS  10.15K 

$  TAPE9  LA,X0D,,nnnnn, .USER- LIBRARY 

$  TAPE9  FI, BID, , (I/P  Reel  »),,  (File  ID) 

$  SYSOUT  P2 

$  FILE  W3.X1R 

$  TAPE9  F4.B2D, ,, ,(0/P  File  ID) 

$  ENDJOB 

c.  When  the  BMC  requests  the  card  readers,  input  the  bootdeck  section(s) 
in  sequence  that  are  to  be  updated.  For  a  list  of  the  boot-tape,  input  the 
"$PRINT  "  control  ct.rd  followed  by  three  (3)  ***EOF  cards.  The  boot-deck  sections 
are: 

(1)  BOOT-DECK,  ***E0F  (precede  with  $BOOT-D  Card) 

(2)  INIT-DECK 

(3)  $CONFIG,  *  *  *EOF 

(4)  $1NITIALIZE,  ***E0F 

(5)  $EDIT ,  * **EOF 

(6)  $FILES,  ***EOF 

(7)  $  PATCH,  ***EOF 

(8)  $LOAD,  ***E0F 

(9)  ***EOF,  ***E0F  -  MANDATORY 

NOTE:  See  Figure  24-01  for  Control  Card  Format. 
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24.1.3  Output  Requirements.  Output  will  be  a  new  or  updated  boot-deck  tape  along 
with  an  update  listing  on  the  Printer. 

24.1.3.1  Output  Formats.  N/A. 

24.1.3.2  Sample  Outputs.  N/A. 

24.1.3.3  Output  Vocabulary.  N/A. 

24.1.4  Utilization  of  System  Outputs.  N/A. 


24.1.S  Recovery  and  Error  Correction  Procedures.  N/A. 


AFM  171-604 
Volume  II 


1  December  1976 


RECORD  LAYOUT 


fill  Tint 


Control  Cards 
CZAT4FOAU 


F  ILE  DESCRIPTION 


•■(OHO  TITLI 

ZAT4FO  Control  Cards 


RECORD  POSITIONS 


TYPE/CLASS 


ciiiimcATie* 

Unclassified 


ACt/ACN 

SP891-T41 


SPECIAL  INSTRUCTIONS 


Product  Control  Card  (PCN) 


C-PCN 

Filler 

C-IDENT 

Filler 

C-IDENT 

Filler 

NOTE  1: 
NOTE  2: 

NOTE  3: 

NOTE  4: 


01-11 

12-80 


AN 


Enter  "PCNSP891T41". 
Blank . 


Boot-Deci  Control  Card  (Initial  Creation) 


01-07 

08-80 


AN 


Print  Only  Coi.trol  Card 


01-07 

08-80 


AN 


Enter  "SBOOT-D". 
Blank  . 

Enter  "SPRINT  ", 
Blank  . 


The  "PCN"  card  is  required  for  all  nuns. 


The  "$BOOT 
of  a  new  boh 


"  card  is  required  only 
t  tape. 


for  initial  creation 


The  "SPRINT 
tape  (no  up 

The  " IN  IT" 
updating  (j 
Update  acti 
cc  1-7  of 


"  card  is  required  for  a  listing  of  the  boot 
Bate) . 


ection  does  not  require 
list  input  thi  INIT  deck  intact) 
pns  require  {he  respective  "$ 
e  control  card 


a  control  card  for 
All  other 
"  in 


th 


AF  ,0,“  1190  PAIVIOUR  lOITIONt  AM  OR  SOLI  TC , 

Ad 6  70 

FIGURE  24-01.  Record  Layout  for  ZAT4FO  Control  Cards 


1 


\ 


AFM  171-004 (CS) 
Volume  II 


l  June  1978 


25-1 


*  PART  THIRTEEN  -  TAPE  UNIT  COMPATIBILITY  TEST  PROGRAM 
SECTION  25.  SYSTEM  SUMMARY 

25.1  System  Application.  The  purpose  of  the  Tape  Unit  Compatibility  Test  Program 
is  to  test  the  compatibility  of  the  Magnetic  Tape  Handlers  on  H6000  computers. 

25.2  System  Operation.  NA. 

25.3  System  Configuration.  The  Tape  Unit  Compatibility  Test  Program  was  written 
for  use  on  the  H60O0  computer  system  with  the  System  Console  and  Magnetic  Tape 
Unit  I/O  devices. 

25.4  System  Organization.  The  Tape  Unit  Compatibility  Test  Program  consists  of 
one  stand-alone  program  (ZAJ1FO) . 

25.4.1  ZAJ1FO  -  Tape  Unit  Compatibility  Test  Program.  ZAJlFO  creates  a  Standard 
System  Test  Tape  containing  a  string  or  random  numbers  written  by  each  Tape  Handler 
tested.  Each  Tape  Handler  being  tested  then  attempts  to  read  the  random  string 
written  by  each  Tape  Handler  and  prints  a  report  of  any  read/write  errors  encountered 
during  the  test. 

25.5  Performance.  NJ* 

25.6  Data  Brae.  NA. 

25.7  General  Description  of  Inputs,  Processing,  Outputs: 

25.7.1  Inputs.  Any  9-track  scratch  tape. 

25-7.2  Processing.  ZAJlFO  provides  the  capability  to  test  specific  Tape  Handlers 
against  one  another  to  determine  their  compatibility. 

25.7.3  Outputs.  ZAJlFO  outputs  a  printed  report  of  any  read/write  errors 
encountered  during  the  test. 
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SECTION  26.  STAFF  FUNCTIONS  RELATED  TO  TECHNICAL  OPERATIONS 

26.1  ZAJlFO  -  Tape  Unit  Compatibility  Test  Program.  The  function  of  this  program 
is  to  test  the  compatibility  of  Magnetic  tape  Handlers  on  H6000  computers. 

26.1.1  Initiation  Procedures.  To  initiate  execution  of  ZAJlFO,  the  user  may 
execute  the  following  JCL: 

Col  1  Col  8  Col  16 

$  IDENT  (User  Specified) 

$  USERID  (User  Specified) 

$  LIBRARY  LA 

$  USE  ZAJlFO 

$  ENTRY  ZAJlFO 

$  EXECUTE 

S  LIMITS  ,  5K 

$  TAPE9  LA,X1D, ,nnnnn , ,User  Library 

$  ENDJOn 

26.1.1.1  Program  Notes.  Library  Tape  LA  is  in  sequential  R*  format. 

26.1.1.2  References.  R6000  Control  Card  Manual  IBS19. 

26.1.2  Staff  Input  Requirements.  User  requirements  will  determine  frequency  of 
processing. 

26.1.2.1  Input  Formats.  NA. 

26.1.2.2  Composition  Rules.  NA. 

26.1.2.3  Input  Vocabulary.  NA. 

26.1.2.4  Sample  Inputs.  NA. 

26.1,3  Output  Requirements.  Output  will  be  a  read/write  error  report  listing. 
User  requirements  determine  the  frequency  of  processing  and  disposition. 

26.1.3.1  Output  Formats.  NA. 

26.1.3.2  Sample  Outputs.  Reference  figure  26-01. 

26.1.3.3  Output  Vocabulary.  NA. 


26.1.4  Utilization  of  System  Output.  The  following  information  messages  are  out- 
put  on  ZXJ'.FO  -  "Tape  Unit  Compatibility  Test  Results,  PCN:  SP891-J11,  F'le-ID: 
PZAJ1F01U. 

a.  READ  ON  UNIT  MMMMMM  WPITTEN  ON  UNIT  NNNNNN 

"MMMMMM”  and  "NNNNNN"  are  six-digit  numbers  indicating  a  specified  tape  handler. 
Whenever  this  message  appears  it  indicates  a  data  discrepancy  between  the  reading 
and  writing  tape  handlers,  possibly  indicating  that  one  of  the  two  units  is  becom¬ 
ing  incompatible.  The  appropriate  personnel  should  be  notifie'. 

b.  MMMMMM  READ  ERRORS  FOR  UNIT  NNNNNN 

"MMMMMM"  indicates  the  total  number  of  discrepancies  encountered  on  the  tape  handler 
indicated  by  "NNNNNN."  This  will  appear  once  for  each  tape  handler  tested.  May 
be  used  as  a  diagnostic  aid  in  determining  which  tape  handler  ia  becoming 
incompatible , 


26.1.6  Recovery  and  Error  Correction  Procedures.  If  program  aborts,  rerun  ZAJlFO 
paying  particular'  attention  to  "giving  correct  responses  on  the  system  console  to 
program  initiated  questions. 
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PREPARED  76  MAR  01  ZAJIFO  -  TAPE  UNIT  COMPATIBILITY  TE8T  RESULTS  PCM  SP#ai-JU 


009999  READ  ERRORS  FOR  UNIT  1 
009000  READ  ERRORS  FOR  UNIT  2 
READ  ON  UNIT  3  NAS  WRITTEN  ON  UNIT  X 
000001  READ  ERRORS  FOR  UNIT  3 
READ  ON  UNIT  4  HAS  WRITTEN  ON  UNIT  S 
READ  ON  UNIT  4  NAS  WRITTEN  ON  UNIT  6 
000902  READ  ERRORS  ON  UNIT  .4 
090099  READ  ERRORS  ON  UNIT  S 
000099  READ  ERRORS  ON  UNIT  6 


PCN  SPI91-J11 


END  PACE  1 


FIGURE  26-01.  ZAJIFO  Saapla  Output 
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*  PART  FOIIRTLHN  STANDARD  A!  ABORT  SUBROUTINIi 
SLOT  ION  27.  SYSTEM  SUMMARY 

27.1  System  Application.  The  purpose  of  the  Standard  A1  Abort  Subroutine  is  to 
provide  116000  programmers  a  common  subroutine  that  will  eliminate  redundant  program¬ 
ming  efforts.  This  subroutine  is  designed  to  cause  a  display  of  the  user's  Al  Abort 
code  when  there  is  a  need  to  discontinue  execution  of  a  COBOL  program  or  job  stream 
caused  by  a  predetermined  error  condition  that  would  negate  continued  processing 
without  being  corrected. 


27.2  System  Operation.  N/A. 


27.3  S 

vstem  Configuration. 

The  Standard  Al  Abort  Subroutine  was  written  for  use 

on  the 

basic  116000  computer 

system. 

27,4  System  Organization.  The  Standard  A1  Abort  Subroutine  is  a  callable  object 
code  subroutine  that  is  called  by  a  user  program. 


27.4.1  ZAS1FO  -  Standard  A1  Abort  Subroutine.  ZAS1FO  is  designed  to  cause  a  dis- 
olay  of  the  user's  Al  Abort  code  when  there  is  a  need  to  discontinue  execution  of  a 
COBOL  program  or  job  stream  caused  by  a  pre-determined  error  condition  that  would 
negate  continued  processing  without  being  corrected. 


27.5  Performance.  N/A. 

27.  (»  Data  Base.  N/A. 

27.7  (iencral  Description  of  Inputs,  Processing.  Outputs: 

27.7.1  Inputs.  N/A. 

27^7.2 _ Processing.  The  Standard  Al  Abort  Subroutine  provides  the  116000  COBOL  pro¬ 

grammer  with  the  capability  to  call  in  a  standard  subroutine  for  user's  Al  aborts 
that  will  eliminate  redundant  programming  effort. 

27.7.5  Outputs : 

27.7.3.1  ZAS1FO.  The  user's  Al  Abort  code  is  output  on  the  activity  termination 
line  of  the  execution  report  (P*  file). 
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Slid'  I  ON  2  8.  ST  A  IT  FUNCTIONS  RELATED  TO  TECIIN  1CAL  OPliRATIONS 

28.1  2AS1FO  -  Standard  A1  Abort  Subroutine.  The  function  of  this  subroutine  is  to 
cause  the  display  of  the  User's  A1  Abort  code  on  the  activity  termination  line  of 
the  job  execution  report. 

28.1.1  Initiation  Procedures .  The  subroutine  ZAS1FO  must  be  available  to  the 
genera  1  loader  on  an  object  library  to  be  loaded  with  the  calling  program.  The 
object  library  may  be  made  available  to  the  loader  by  using  the  file  code  *1.  on  a 
file  control  card  which  allocates  the  library  or  by  using  a  $LIBRARY  control  card. 

28.1.1.1  Program  Notes: 

a.  The  following  is  a  coding  example  for  calling  ZAS1FO  in  a  COBOL  program: 
JCOBOI. 

I  l)l:NT  Ib'l  CAT  I  ON  DIVISION. 


WORK  INC  STORAGE  SUCTION. 


PROCEDURE  DIVISION. 

DISPLAY  "ERROR  MbSSAGh . " 
CALL  2AS 1  l-'O. 


STOP  RUN. 

28.1.1.2  References: 

a.  llbOOO  General  Loader  Manual,  DD10. 

b.  llbOOO  COBOL  Reference  Manual,  DD25. 

c.  IICOIUI  GMAP  Manual,  1)1)08. 

d.  llbOOO  Control  Card  Reference  Manual,  1)1)31. 

28.1.2  Staff  Input  Requirements .  Number  of  User  abort  terminations  will  determine 
number  and  frequency  ol  use  Tor  this  subroutine. 

28.1.2.1  1 nput  formats .  N/A. 

28.  I  .2.2  Compos  i  t  i on  Rubles.  N/A. 

28.1.2.3  Input  Vocabulary .  N / A . 

28.1.2.4  Sample  Inputs.  The  following  job  control  statements  are  required  with 
the  user's  object  library : 


Col  1  Col  8  Col  16 

$  I  DI-NT  (USER  SPECIFIED) 

$  USERID  (USER  SPECIFIED) 

$  LIBRARY  LA 

$  USE  ZAS1F0 

$  ENTRY  ZAS1F0 

$  EXECUTE 

$  LIMITS 

$  TAPER  LA ,X0D, ,nnnnn , .User  Library  (with  ZAS1FO) 

$  END.J0B 


28.1.3  Output  Requirements.  N/A. 
-■'.1.3.1  Output  for  nuts.  N/A. 
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*  PART  FIFTEEN  -  FILE  ACCESS  INQUIRY  SUBROUTINE 
SECTION  29.  SYSTEM  SUMMARY 

29.1  System  Application.  The  purpose  of  the  File  Access  Inquiry  Subroutine  is  to 
provide  application  programs  the  following  information  about  a  cataloged  file: 

a.  The  date  that  the  last  activity  which  wrote  to  the  file  relinquished  its 
allocation.  (MMDDYY  -  one  word  BCD) 

b.  The  time  that  the  last  activity  which  wrote  to  the  file  relinquished  its 
allocation.  (I1IIMMSS  -  one  word  BCD) 

c.  The  current  total  number  of  allocations  of  any  kind  to  the  file  since  it 
was  created.  ( 999!)!)'.)  one  word  BCD) 

d.  The  date  of  the  last  allocation  of  any  kind.  (MMDDYY  -  one  word  BCD) 

e.  The  date  that  the  file  was  created.  (MMDDYY  -  one  word  BCD) 

29.2  System  Operation.  N/A. 

29.3  System  Configuration.  The  File  Access  Inquiry  Subroutine  will  run  on  any 
H6M0  configuration  with  GCOS. 


29.4  S 

ystem  Organization. 

This  system 

consists  of  a  single  GMAP  subroutine 

(ZAS2F6 

J  which  is  called  by 

application 

programs . 

29.4.1  ZAS2FO  -  File  Access  Inquiry  Subroutine.  The  function  of  the  File  Access 
Inquiry  Subroutine  is  to  provide  a  limited  interface  between  COBOL  application 
programs  and  the  File  Management  Supervisor. 

29. 5  Performance.  N/A. 

29.6  Data  Base.  N/A. 

29.7  General  Description  of  Inputs,  Processing,  Outputs: 

29.7.1  _ I  nputs .  N/A. 

29 .7.2  _ Process i ng . 

a.  ZAS2FO  has  several  entry  point. .  This  is  to  give  the  user  the  option  of 
identifying  the  file  to  he  monitored  hy  COBOL  file  name,  FMS  catalog/I ilc  name  or 
by  activity  file  code.  The  entry  points  and  their  required  first  parameters  are  as 
follows : 


b. 


(1) 

FINQ01  - 

(2) 

FINQ02  - 

(3) 

FINQ03  - 

(4) 

FINQ04  - 

Processing  is 

FMS  catalog/file  name. 


sically  the  same  for  each  entry  point.  First  ZAS2F0 
verifys  that  there  are  from  two  to  six  parameters.  For  entry  points  FINQ01, 

FINQ02  and  FINQ04  a  file  code  is  extracted  from  the  first  parameter  to  identify  the 
the  file  to  FMS.  For  entry  point  FINQ03  the  catalog/file  name  is  reformatted  for 
a  separate  FMS  request.  After  FMS  returns  a  buffer  of  information  about  a  file 
ZAS2FO  extracts  those  fields  which  contain  the  requested  information  and  passes  the 
information  back  to  the  application  program's  storage  area.  Entry  point  FINQ02 
differs  from  the  others  in  that  it  also  de-al  locates  the  file  and  passes  back  the 


29-2 


current  time  and  date 
a  writer.  The  format 
in  paragraph  29.1. 


AFM  171 -604 (CIO)  1  August  1980 

Volume  II 


as  the  time  and  date  that  the  file  was  last  de-al located  from 
and  order  of  the  second  through  sixth  parameters  is  as  given 


29.7.3  Outputs.  N/A. 


k  U  l 
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SLOT  I  ON  30.  STAFF  FUNCTIONS  RELATED  TO  TECHNICAL  OPERATIONS 

30.1  ZAS2FO  -  File  Access  Inquiry  Subroutine: 

30.1.1  Initiation  Procedures.  Figure  30-1  shows  examples  of  calls  to  ZAS2FO  from 
a  COBOL  program. 

30.1.1.1  Program  Notes: 

a.  The  actual  file  names  and  data  names  can  be  different  than  those  shown  in 
figure  30-1. 

b.  The  number  of  parameters  can  vary  but  they  must  be  in  the  order  shown  in 
figure  30-  1  . 

No  I'RMFI.  control  card  is  required  lor  entry  point  FINQ03. 

d.  Catalog/file  names  passed  to  entry  point  FINQ03  must  be  left  justified 
and  must  end  with  a  blank. 

e.  Only  10  levels  of  cataloging  are  supported  by  entry  point  FINQ03. 

f.  Except  for  entry  point  FINQ02  all  of  the  information  passed  back  by 
ZAS2FO  is  from  the  FMS  type  2  record  for  the  file. 

g.  The  date  of  the  last  allocation  and  the  current  total  number  of  alloca¬ 
tions  of  any  kind  will  reflect  the  fact  that  the  user  of  entry  points  FINQ01, 

FINQ0  2  and  FINQ04  must  have  allocated  the  file  record  with  a  PRMFL  control  card. 

h.  The  time  and  date  of  the  last  writing  to  a  file  will  not  be  recorded  in 
the  FMS  type  2  record  until  after  the  file  has  been  de-al located  by  FINQ02  or  the 
act i v i ty  t orm i nn t i on . 

i.  FINQU2  will  de-al locate  the  file  and  return  the  current  date  and  time  as 
the  date  and  time  that  the  file  was  last  de-al located  from  a  writer. 

30.1.1.2  References: 

a.  116000  General  Loader  Manual,  11D10. 

b.  H6000  COBOL  Reference  Manual,  DD25. 

c.  1160 00  GMAP  Manual,  DD08. 

d.  H6000  Control  Card  Manual,  DD31. 

e.  H6000  File  Management  Supervisor  Manual,  DD45 

30.1.2  Staff  Input  Requirements.  N/A. 

3JKJi_._2  .  I _ Uijni  t  Formats  •  N/A. 

30.1.2.2  Composition  Rules.  N/A. 

30.1.2.3  _ Input  Vocabulary.  N/A. 
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l  .  :  .  4  Sample  Inputs: 

Col  1  Col  8  Col  16 

$  IDENT 

$  USERID 

$  OPTION  COBOL 

$  COBOL 

(the  program  which  calls  ZAS2FO) 

$  LIBRARY  I.B 

$  EXECUTE 

$  TAPED  I. •», Till,, iHiiiiiii,  ,1  i  le- id  1  «>  I  I  lie  release  lapel 

$  ENIIJOB 

"0.1.3  Output  Requirements.  N/A. 

3 0  .  1.3.  1 _  Output  Formats .  N/ A . 

.1,3.2  Sample  Outputs .  N/ A . 

;  1-3.3  Output  Vocabulary .  N/ A 

■  0 . i . 4  Dili  nation  of  System  Output* .  N/A 

3{\1  .  5_  Recovery  and  Error  Corrmction  Procedures.  N/A 


) 
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Col  1  Col  8  Col  16 
$  COBOL 

FILE  CONTROL. 

SELECT  FILE-NAME  AND  ASSIGN  TO  FI. 
FILE  SECTION. 

FD  FILE-NAME  ... 


WORKING -STORAGE  SECTION. 


77 

FILE -CODE 

PIC 

X(6)  VALUE  "0000F2". 

77 

cat- fill: 

PIC 

X  (  1  6 )  VALUI-:  "fatal  or/ f  i  lc3" 

7  7 

w  hall: 

PIC 

X  (  6  )  . 

77 

w  t  i  mi; 

PIC 

X  (  6  ) . 

77 

N-ACS 

PIC 

9(6). 

77 

A-DATE 

PIC 

X  ( 6 ) . 

77 

C-DATE 

PIC 

X  (  6  )  . 

PROCEDURE  DIVISION. 

CALL  FINQOl  USING  FILENAME t  W-DATE,  W-TIME. 

CALL  FINQ02  USING  FILE-NAME,  W-DATE,  W-TIME. 

CALL  FINQ03  USING  CAT-FILE,  W-DATE,  W-TIME. 

CALL  FINQ04  USING  FILE-CODE,  W-DATE,  W-TIME. 

(OR  FOR  MORE  INFO  ABO'JT  A  FILE) 

CALL  FINQOl  USING  FILE-NAME,  W-DATE,  W-TIME,  N-ACS. 

CALL  FINQOl  USING  FILE-NAME,  W-DATE,  W-TIME,  N-ACS,  A-DATE. 

CALL  FINQOl  USING  FILE-NAME,  W-DATE,  W-TIME,  N-ACS,  A-DATE,  C-DATE 

(AND  SO-ON  FOR  FINQ02,  01,04) 


s 

I  K, IIRI  30  (II  .  HAS 2 10  l;x, imp 1 1*  ol  C;i  I  Is 


'Ml  I 
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tiv  order  of  the  secretary  of  the  atr  force 


i  IFF  I C I  AI.  DAVID  C.  JONES,  General,  IJSAF 

Chief  of  Stiff 


JAMES  J.  SHEPARD,  Colonel,  USAF 
Director  of  Administration 


SUMMARY  OF  REVISED,  DELETED,  OR  ADDED  MATERIAL 

This  revision  completely  redocuments  the  P891  system  1AW  revised  AFM  171-100 
standards  dated  1  November  1975.  The  following  documents  are  deleted  as  of 
1  December  1976: 

116000  User  Advisory  #20,  dated  26  Aug  74. 

116000  User  Advisory  #22,  dated  24  Oct  74. 

H6000  User  Advisory  #23,  dated  8  Mar  74. 

H6000  User  Advisory  #25,  dated  8  Apr  74. 

116 000  User  Advisory  #26,  dated  8  Apr  74. 

H6000  User  Advisory  #27,  dated  3  Jun  74. 

116000  User  Advisory  #30,  dated  6  Jan  75. 

116000  User  Advisory  #31,  dated  26  Aug  74. 

H6000  User  Advisory  #34,  dated  18  Sep  74. 

116000  User  Advisory  #35,  dated  24  Oct  74. 

116000  User  Advisory  #36,  dated  24  Oct  74. 

116000  User  Advisory  #37,  dated  4  Dec  74. 

116000  User  Advisory  #39,  dated  6  Jan  76. 

116000  User  Advisory  #40,  dated  17  Jan  75. 

116000  User  Advisory  #44,  dated  31  Mar  75. 

116000  User  Advisory  #45,  dated  25  Aug  75. 

H6000  User  Advisory  #46,  dated  17  Oct  75. 

116000  User  Advisory  #47,  dated  17  Oct  75. 

Gunter  H6000  Software  Advisory  Notice,  SDT014,  dated  25  Sep  73. 

Gunter  H6000  Software  Advisory  Notice,  SDT016,  dated  17  Mar  74. 

Gunter  116000  Software  Advisory  Notice,  SDT045  ,  dated  12  Feb  75. 

Gunter  116000  Software  Advisory  Notice,  SDT055,  dated  15  Aug  75. 

Gunter  H6000  Software  Advisory  Notice,  SDT057,  dated  28  Oct  75. 

Gunter  116000  Software  Advisory  Not  ice,  SDM064  ,  dated  18  Fob  76. 


